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SYMBOLS* 


A 

B i*’ B 2*» c r c i* 

BF 

BIN,BDAM,BSPR 

BIRI,BIRID,BIRIO, 
BIRIDH, BIRIIH 

V c yV% 

| CIB 

COIR, COIH, CODR, 
CODH,COR 

DYYI ,DYYII ,DZZII ,etc 
E 


blade cross-sectional area, coefficient matrix 

blade cross-sectional integrals (see Ref. 3) 

vector of applied forces to blade, defined 
after Equation (34) 

matrices in hub equations , defined after 
Equation (34) 

matrices defined after Equation (34) 


effective hub damping coefficients 

blade coordinate transformation matrix, 
defined after Equation (34) 

blade equation matrices, defined after 
Equation (34) 

definite integrals defined in Appendix A 
Young's modulus 
= e A EAK A 2 - EB 2 * 

* ? 

effective in-plane stiffness = El ' - (El *-EI ' )0 
o zzy 

- e A EA 

effective out-of-plane stiffness - El ■ + (El, ' -El ' )0 2 
? y y 

- e A EA0 

4 2 

effective torsional stiffness = GJ - K fl EA0' 

i O 9 9 - 1 

+ EB^e ■ + k a sr 

mass centroid offset from elastic axis, positive 
when centroid is forward 

area centroid offset from elastic axis, positive 
when centroid is forward 


* Most symbols relating to blade parameters are consistent with the 
notation of Reference 3, 
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SYMBOLS (Continued) 


F H ’ F H jF H ,F ot jF a 
x y z x y 

FNL 

FR 


9y’9 w »9^, 

HC,HF,HK 

I 

IB 


V^z' 


x y 

k a 

\\ \ 


Km ,K U ,etc 
H x H y 

L u’ L v ,L w 


m 


m u >m u ,etc 
H x H y 

M • 


M 


'A 


applied forces and moments at hub 


vector of nonlinear terms, defined after 
Equation (34) 

vector of steady forces due to offsets, 
defined after Equation (34) 

shear modulus 

blade inplane, out of plane, torsion damping, force/ 
unit length/ unit velocity 

hub damping, force, and stiffness matrices, 
defined after Equation (34) 

as used in El, appropriate area moment of 
inertia 

index referring to a particular blade of 
the rotor 

blade section moments of inertia from y' and 
z' axes 

effective moments of inertia of hub 


area radius of gyration of blade cross-section 

mass radius of gyration of blade cross-section, polar, 
from chord, from axis through c.g. perpendicular to 
chord, 

effective stiffness of hub 

components of applied forces to blade in u,v,w coor- 
dinate system. 

blade mass per unit length 

effective hub masses' ' . 

vector of elements of mass matrix 

vector of elements of approximate mass matrix 
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m 

NY,NZ,NP 

NT 

NX 

r 

R 

RIOC 

SIB 

t 

T 

TM 


u,v,w 


v,w,$ 


M 


x 


SYMBOLS (Continued) 
number of blades 

number of in-plane, out-of-plane, torsion 
modes , res pec ti vely 

total number of modes used = NY + NZ + NP 

number of blade stations 

right-hand side vector 

value of x at blade tip, blade radius 

inverse of blade inertial coefficient 
matrix, COIR 

blade coordinate transformation matrix, 
defined after Equation (34) 

time 

tension, also kinetic energy 

hub inertial matrix, defined after Equation (34) 

elastic displacements in radial, in-plane, and 
out-of-plane directions 

vector components of coupled blade normal 
modes , y 

weighting factor on i-th variable 

weighting matrix 

blade station, measured from hub 


x,y,z 


blade displacement from undeformed blade 
coordinates 


x„,y„,z„ coordinates of hub in inertial reference 

system, Figure 2 

Xr’^r^r non-rotating blade coordinates with origin 

at hub, Figure 2 

y. ,z. ,<{>. generalized coordinates, amplitudes of i-th 

in-plane, out-of-plane, and torsion modes in 
Galerkin method, functions of time only 

Y. ,Z. modal functions used in Galerkin method, 

function of x only 
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SYMBOLS (Continued) 


YI.ZI.PI 

Y_ 


a ,a 

x* y 

L 

pc 

AE 


AK 

Am 

n 

0 

K 

T 

5 


♦l 


t 

v 

a) 

03 _p 

a 


integrals defined in Appendix A 
vector of blade generalized coordinates 


pitch and roll angles of hub 

precone angle 

EI z i - El , - e A 2 EA 

K 2 - K 2 
m 2 m l 

vector of changes in elements of mass matrix 
blade section coordinate 


built-in twist 

dummy variable for blade station 

R 

centrifugal tension integral = / m£d£ 

A 

elastic twist about elastic axis 

vector torsional component of coupled blade 
normal mode 


generalized coordinate, amplitude of i-th 
torsion mode in Galerkin method 

i-th torsional mode used in Galerkin method 

blade azimuth 

vector of coupled blade normal modes 
blade natural frequency 
frequency of forcing function 
blade rotational speed 


ix 



/ 

o 

( )' 


SYMBOLS (Continued) 


for simplicity, often used to indicate / 


a 

at 

a 

ax 


( ) 
( ) 


( )dx 


x 



INTRODUCTION 


The analysis of rotor dynamic and aeroelastic phenomena and the resulting 
capability to control and modify undesirable characteristics requires an 
understanding of the dynamics and aerodynamics of the rotor blade. Much 
of the theoretical and experimental research efforts have centered on the 
aerodynamic aspects of the problem. Of the recent work done in the field 
of rotor dynamics, most has been directed toward particular phenomena 
using idealized blade models. Little effort has been devoted to the 
development of methods of analyzing the dynamic characteristics of actual 
rotors. 

The ability to analyze and predict the dynamic characteristics of a rotor 
blade has rarely been adequately tested. Non-rotating tests and rotating 
tests in the atmosphere omit the extreme structural operating conditions 
associated with the large centrifugal forces or involve significant aero- 
dynamic effects which cannot be analytically removed. One attempt 
(Reference 1) to test an idealized rotor model in a vacuum chamber 
resulted in the conclusion that the state-of-the-art of rotor dynamic 
analysis was not adequate for even a simple solid homogeneous uniform 
blade with a rectangular cross-section. 

There are reasons why there are considerable uncertainties in the 
mathematical modeling of a rotor blade. In addition to the extreme 
centrifugal field effects, the major problem lies in the representation 
of the blade section properties. The state-of-the-art methods (for 
example. Reference 3) apply to blades with homogeneous sections. In 
actuality, a typical rotor blade will contain many of the following 
features: a tapered, twisted hollow spar; bonded thin skinned pockets 
with ribs, or a honeycomb filler; leading edge balance weights; a bonded 
anti-icing boot; inboard stiffeners; multiple hinges; root cutout. The 
analytic determination of "effective stiffness", "elastic axis", and 
"structural damping coefficient" are, at best, intuitive approximations. 

The vacuum chamber rotor testing planned at Langley Research Center offers 
a unique opportunity to significantly advance the state-of-the-art of 
rotor analytic modeling and rotor dynamic analysis. The purpose of the 
work presented in this report is to develop tools to augment the afore- 
mentioned testing program. Two specific computer programs have been 
developed. The V22 program has been developed to simulate the tests, 
including all the necessary special characteristics such as hub forcing, 
and independent rotational and forcing frequencies, including the non- 
rotating condition. In addition, the program was designed to be used 
as a research tool and emphasizes operational flexibility and ease of 
data input and solution controls. 
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The other program, ROTSI, is an attempt to use measured data to help 
identify better approximations to the mass and offset parameters of the 
rotor blade. The method is an adaptation of the method of incomplete 
models which has been used with success for other related structural 
probl ems. 

The analytical developments necessary to implement these tools are 
derived and discussed in this report. The programs, operators guides, 
descriptions of special features, and illustrative computational results 
are also presented. 

The major part of this work was completed in 1977, prior to the actual 
vacuum chamber tests. After the testing was performed an analysis of 
this data was carried out and is reported in Appendix D. 

The contract research effort which has led to the results in this report 
was financially supported by the Structures Laboratory, USARTL (AVRADCOM) 
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EQUATIONS OF MOTION 


A comprehensive development of the equations of motion of a rotor blade 
was first published by Houbolt and Brooks (Reference 2) in 1958. The 
equations were reformulated by Hodges and Dowell (Reference 3). Their 
major contributions were the improved generality, including nonlinear 
terms, and the independent verification of the earlier work. There being 
no need to rederive these equations again, the rotor equations used in 
this study were based on those given in Reference 3. 

The addition of hub degrees of freedom necessitated the development of 
the additional terms in the blade equations and the development of the 
equations of motion of the hub itself which includes the effects of the 
blades. 

The development of the equations of motion of the blades and hub, the 
application of the Galerkin method, the method of solution, and some of 
the major features of the program implementing these solutions is pre- 
sented in the following sections. 

ROTOR EQUATIONS 

As suggested in Reference 3, the tension, T, and the longitudinal 
deflection, u, shall be eliminated from the equations. Using the 
nomenclature as shown in Figure 1 and considering 0 and <j> to be small 
with <p ignored compared to 0 in the nonlinear terms, the equation for 
the tension in the blade becomes: (Equation 62 of Reference 3) 

2 2 

T = EA{u' + XL. + v^_ + k a 2 0 V - e A (v" + w"0)} (1) 

Integrating with respect to x and solving for u yields: 

x x x 1 2 1 2 

u = / u'd? = / - K A 2 0 v+ e A (v" + 0 w "))d5 - / (V + V )d? 

OO 0 

with boundary condition u( 0 ) =0 ( 2 ) 


From Reference 3 the equation (Equation 61a) for the elastic displacement 
in the X direction is: 


T* = 



X + 2Qv) 


(3) 
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Integrating Equation (3) and using L = 0, T(R) = 0 and t = / m£;d£ 
the resulting equation is: x 

? R 

T = fix + 2 Qf mydg (4) 

x 


Equation (3) and (4) and an expression for u' developed from Equation (1) 
are substituted into the Equations (61b) , (61c), (61 d ) of Reference 3, 
the equations for the in-plane, out-of-plane, and torsion become (where 
third and higher order terms have been neglected): 


{E v v" - 2Qe A /mvd£ + AE9 W " - EC-, *9^" + E-j 9 * ' - e A Q 2 x}" - ft 2 xv" -+ Aixv' 


- ft 2 mv + mv - 2Qmev 1 + 2Qmvv 1 - 2Q / mvd§v" - 2ftm$ w - 2fimeQw' 

x pc 


X R X 

- me9(j) - (me(ft 2 x + 2Qv)>' + 4£2 2 m / A- / mvd?d? - 2flm/ K n 2 8'|'d? 

0 L X 0 ' 

X X X X a 

+ 2mf2/ e A v"d5 + 2m 0/ e A 9w"d£ - 2m&f v'v'd£ - 2mR/ w'w'd£ = L v + mR e 


(5) 


{AE9v" - 2Re ft 9/ mvd£ + E w w" + EC^cf)" + E^V - R 2 e A x<}>- R 2 e A x9>" 

2 X 2 . R . 

+ 2ftmB v - S tw" + rrmxw 1 + mw + 2fimvw' - 2 tif mvd^w" + metfi 

x 

-{me(2R9v + R 2 x<j) + R 2 x9)}' = l_ w - mR 2 B pc X (6) 

R 

-{E-j9' v" + 2 ^K a 2 9'/ mvd? + E^e'w" + E^>' + R 2 K A 2 x9'}' + R 2 e A x9v" 

X 

p p 2 2 2 

- R' mex9v‘ + R me9v - me9v - R e A xw" + ^ mexw 1 + mew + R mAK4> 

+ mK m 2 # + {-EC-^v" + EC-j*w" + EC^"}" = Mcf> - R 2 mAK9 - f2 2 me6 pc x (7) 
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These equations contain spatial derivatives of physical parameters which 
would be difficult to evaluate numerically. Integrating each equation 
twice between the limits x to R will eliminate this problem. Using the 
variable x as the lower limit is the more convenient because of the 
boundary conditions at the tip of the blade. For example, consider the 
double integration of functions f"(x) and f 1 (x) as follows: 

R R 

/ / f"(x)dxdx = f'(R)(R - x) - f(R) + f(x) 
x x 


and 

R R R 

/ / f ' (x)dxdx = f(R)(R - x) - / f(x)dx 
xx x 

Following the Galenkin (Ritz) procedure, arbitrary functions for the blade 
elastic displacements are substituted into the previous equations, as 
f ol 1 ows : 


v(x.t) = 2y(t)Y. (x) = Z y.-Yi 
1 i 1 i 1 

w (x n t) = Z z^tJZjCx) = Z ZjZj 
J J 

*(x-j t) = Z 4> k (t)^ k (x) = Z4> k ^ k 
k k 


where Y.(x), Z.(x), $.(x) are modal functions which satisfy the boundary 

* J K 

conditions and y^(t), Zj(t), 4> k ( t ) are time dependent generalized co- 
ordinates. The modal functions are completely general and are not 
restricted to normal mode shapes. 

R 


In the following equations the short-hand notation / = / ( )d£ is 
used for simplicity. x 


6 



£{y,(//mY. + 4fi 2 //m/ — T mY.) + 2Uy. [//m/ e„Y." - //meY.' 
i 1 1 o tM 1 1 o 1 1 

- e A /mY i -/meY. - (R - x)(meY iV ) R ] + y . [EyY. " - ^{//xY." 

x 

- Z/mxY. 1 + //mY.)]} + E{2fiz.(//m /e„0Z." - //me0Z.' - 3 //mZ.) 

1 1 j J o M J J pc j 

. X 9 

+ z.(AEQl".)} + S{<j> k (-//me0# k )- 2^ k (//m/ K>0§ k ' ) + <j> k (- EC-,*©^" 

X X 

+ E 1 0'$ k ')} + 2fi{//mvv' - //v"/mv - //m/ v'v' - ffmf w'w' 

0 0 

= //( L u - mft 2 e) - fl 2 (/mex - e^x - R(me) p (R - x)) 


R v 


(8) 


^2fly . [3 pe //mY . + /me0Y. - e A 0/mY. - (R - x)(me0Y.) R ] + y . .( AE0Y j " ) } 

+ Z{z.(ff ml.) + z.[E w Z." - R 2 (//xZ j " - / /mxZj)]}+ z{i fc (// me* k ) 

k 

+ (j) k [EC 1 *$ k " + E ] 00 1 f k 1 + n 2 (/mex$ k - e A x$ k - R(R - x)(me$ k ) R )]} 


+ 2 S>{//mvW - //w"/mv = //(l_ w - ft 2 3 pc mx) - S 2 [/mexe - 
- R(me0) R (R - x)] 

2 {- y 1 (//me0Y i ) + 2fly i [/(k A 2 0/mY.)i + y^ [/E-j 0 ‘ Y^ " - EC-^YJ' 

+ n 2 (//e A x0Y." - //mex0Y. ' + //me0Y.)J} + Z{z.(//meZ.) 

j J J 

+ 2 i [/E l 0 e ' Z j" + EC ,* z j" - a2 < z W - ^xZj')]} + S{i}(// m k m 2 $ k ) 


+ 4> k (EC 1 § k “ + /E ® k ' + a 2 //mAK» k )} = //[ M - 12 2 (m4K0 + S iwx)j 


ft 2 /k A 2 x 0 ' 


( 10 ) 
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ADDITION OF HUB MOTIONS 


In this section the linear effects of the hub degrees of freedom are eval 
ated and will be combined with the blade equations. 


The coordinate of a point on a blade in the nonrotating hub system, as 
shown in Figure 2, can be defined in terms of r, the undeformed reference 
line along the blade span as follows (including the major linear terms). 


x R = r cos ip - [v + n cos (9 + <p)] sin ip 
y R = r sin ip +[(v + n cos(6 + <f>)] cos ip 
z R = r3 pc + w + n sin(e + <j>) (1.1) 


Assuming small angles for 0 and <J> in Equations (11), including hub dis- 
placements and angular motions a and a about the respective axes, the 

x y 

linear expression for the inertial coordinates for a point on the blade 
become: 


x = x„ + r cos ip - (q + v) sin ip + (r3„„ + n0)a w 
h pc y 

y = y H + r sin ip + (n + v) cos ip - (r3 pc + n0)a x 
z - z u + r3„^ + n(0 + <f>) + w" + (r sinip+ n cos ip)a 

n pC X 

- (r cosip - n sin ip)a y (12) 

Accelerations of the inertial coordinates are derived from Equation (12) 
and are used in the formulation of the hub equations, below: 

O o 

x = x H - ^^(r cos ip - n sin ip) - v sin tp - 2^v cos ip + £rv sin ip 

+ nOtpsin ip + 2r)Q0|cos ip + (r3 + n0)ct„ (13) 

P c y 
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(X h> y h» z h ) 



Figure 2. Point on Blade Referenced to Non-Rotating 
Hub Coordinate System 



04 ) 


••2 *2 
y = y H - « (r sin ip + ncos p) + v cos ip - 2fiv sin ip- fiv cos p 

- n©4> cos *// + 2nfi0$ sin ip - (rB + r)d)a 

pc X 

p 

z = z„ + w + n<j) -fi (r simj> + ncos ip) a + 2Q(r cos ip - n sin i|^)a 

n XX 

p 

+ (r sin^+ ncos ifOa + sr(r cos ip - nsimj>)a 

x y 

+ 2ft(r sin ^ + ncos i^)a - (r cosifj- nsin^)a (15) 

j y 

Applying LaGrange's equation, the additional terms in the equations for 
the elastic displacements v, w, <j> due to hub motions become: 

v Equation 

- X|_| sin pffm + y^ cos pff m + ( a x cos ip + a^sin ^)(3p C ffmx + ffmeQ ) 

06 ) 

w Equation 

n 

z^ffm + (a x - £1 a x + 2^a y )(sin ipff mx + cos ip //me) 

o 

- (a - fra - 2fia x )(cos ij>//mx - sin ipff me) (17) 


p Equation 

C(x H sin ip - y H cos ip) + ft(x H cos ip - y^ sin ^)]//me0 + z^Z/me 

I Oa*. \ / ! _| r r . I/* a„i/2 \ / •• rfl 


+ (a - Sr a + 2fia )(sin ipff mex + cos pffmKr ) - (a - £1 
a x y m 2 J 

- 2£2a )(cos i(;//mex - sin ^//rnK^ m ) + [(a„ cos ip + a„ sin ip) 

^ x y 


a 


S(a x sin ip - a y cos ^)](6p C //niex0 + //mlC m 9) 


R 

where / = / ( )d£ 
x 


08 ) 
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FINAL BLADE EQUATIONS OF MOTION 

Combining the respective equations given in (8)-(10) and (16)-(18) yields 
the equations of motion for the elastic displacements v, w and <j>. 

v Equation 

2(y i [//mY. + 4 fi 2 ZZmZ^ ~ fmY.J + 2Qy. [//m/ e^" - //meY i ' - e A /mY f + ZmeY 

- (R - x)(meY.) R ]+ y^Y." - ^(Z/tY." - ZZmxY . ' + ZZmY.)]} 

x 

+ Z{2Qz.[ZZmZ e fl 0Z." - ZZme6Z.' - 0ZZmZ.] + z,(AEeZ.")} 

j J q n J « K^J J J 

. x o 

- E{cf> k ZZme0<& k + 2^ k ZZmZ K ft V<^ +<^(£^*0^" ~ E^'^')} - x H sin W m 


y H cos ip ZZm + a x cos <J>(3p C ZZmx + ZZme0) + a v sin ip($i 


pc 


/Zmx + ZZmeO) 


^ X 

+ 2fi{ZZmvv' - ZZ(v"Zmv) - ZZmZ v'v' - ZZmZ w' w' } = ZZL + Q 2 ZZme 

o o v 

- ^Zmex + ^ 2 [e A T + (me) R R(R - x)] 


(19) 


w Equation 

f{20y i [0 pc ZZmY i + fmeQY. - E A 0ZmY.. - (R - x)(me0Y..) R ] + y.AE6Y i "} 

+ ECijZ Z mZj + z j CE^Z j " - « 2 (ZZtZZ' -If mxZZ )]} + E{<j> k ZZme$ k 

+ 4> k [EC-, *$ k " + E 1 e0'$ k ' + ^ 2 (Zmex$ k - e A T$ k - R(R - x)(me$ k ) R )]} 

+ z H ZZm + a x (sin ipffmx + cos ipffme ) + 2fta x (cos ipffmx - sin ipffme ) 
2 

- 0 a x (sin ipffmx + cos i|;ZZme - a (cos ipffmx - sin ip ZZme) 
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• 9 

+ 2toy(sin + cos ip //me) + ft a (cos ipffmx - sin ipffme ) 

+ 2ft{//mvw‘ - //(w"/mv)} = //L - fl 2 3 pc //mx - ft 2 /mex0 + ft 2 [e A T0 
+ R(mee) R (R-x)] (20) 

<j) Equation 

S{ - y.ffmeSY. + 2fty,. [/ ( K A 2 9 '/mV. )] +y j [/E^' Y." - EC-j *0Y . " 

+ ft 2 (//e fl t 0Y." - //mex6Y . ' + //me0Y. )]} + £{z.//meZ. + z .[/E,00' Z." 

M 1 1 1 j J J J * J 

+ EC-j *Z j 11 - f2 2 (//e A xZj" - //mexZj' )]} + S^Z/mK 2 ^ + ^[EC^" 

jk 

+ + ^ ( //mAKO) ]+ x H sin(p//me6 +ftx R eos ipffmeQ 


y R cos i{>//me0 - fty R sin 4i//mee 


+ Zyjjme + a 
h > 




+ 3_„//mex0 + //mk 2 0)] + to [2 cos ^//mex - sin ^(2//mK 2 + 3„„//mex0 
pc x pc 

+ //mK 2 0)] - ft 2 a (sin i|>//mex + cos t|>//mK 2 ) + a w [- cos ipffmex 

,n 2 a ^2 y 

+ sin \p(ff mK 2 + B //mex0 + //mK 2 0)] + to [2 sin ip//mex + cos ij>(2//mK 2 

im 2 p 1 -* ^2 •> 

+ 3 //mex0i+ //mK 2 0)] + ft 2 ct (cos ipffmex - sin ip//mK 2 ) 
fc 1^2 y ^2 

= //M^ - ft 2 (//mAK0 + 3 pc //mex + /K^tB') (21) 


The Galerkin (Ritz) method of effecting approximate solutions of 
differential equations applied to the previous equations requires a 
set of averaging integrals. Equations (19) - (21) for v, w and <f> are multi 
plied by Y.. , Z^, and $ k , respectively, where i = 1 , NY ; j = 1 , NZ and k - 1 

NP and each resulting equation is integrated from 0 to R. This procedure 
yields NT equations (NT = NY + NZ + NP) which may be solved for the general 
ized coordinates. 

. " : • V . ■: -H •••• 
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E {y j [ DYY ) + 4^ 2 DYSI )] + 2ftyj[DYSI( I , J,2) - DYYII(I,J,5) 


- DYF(I,J,2) + DYYI(I,J,2) - DYF(I,J,1)] + Yj [DYF( I , J 9 3) 

- (DYYII(I,J,7) - DYYI I (I ,J,4) + DYYI I (1,0,1 ))]} 


NZ 

+ S {2^Zj[DYSI(I,J,3) - DYZI I ( I ,J,5) - 0 pc DYZII(I,J,l )]+ ZjDYFU.J^)} 
NP .. 

+ E { jDYPI I(I,J,3) - 2£tyjDYSI(I,J,4) + cfjjDYFC 1 ,0 ,5 ) > 


• - x H sin ip DYMI 1(1,1) + y„ cos ^ DYMII{I,1 ) + a x cos ^[DYMII (1,5) 


+ DYMI 1(1,2)] + a sin ^[DYMII (I ,5) + S nr DYMII(I ,2)] 
pc y pc 

R R R x R x 

+ 2 Q{f Yjffmvv 1 - f Yj//(v"/mv) - / Y^ffmf v'v' - / Y^ffmf w'w'} 

0 0 0 0 0 0 

R o 

= / Yj//L v + JT{DYMII(I,3) - DYMI (1,4) + D YF (1,1,6)} (22) 

o 

where I = 1 to NY; thus, there is one equation for each in-plane mode. 
Similarly, for the w equation: 

NY 

E {2fiyj[DZYI(I,J,3) - DZF(I,J,1) + .$ pc DZYII(I,J,l )] + yjDZF(I,J,2)> 


NZ 9 

+ E (z. DZZI I ( I , J , 1 ) + z,[DZF(I,J,3) - £T<DZZII(I,J,6) - DZZII(I ,J,3)>]} 

U J 


NP 

+ E {<}> .DZPII ( I , J,1 ) + <f> 1 [DZF(I,J,4) + (DZPI (I , J,2) - DZF( I , J,6) )]} 
J J 
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+ z u DZMII(1 ,1 ) + a [sin i> DZMI I (I, 2) + cos ip DZMII(I,3)] 

n X 

+ 2Qa [cos if; DZMI 1(1,2) - sin ip DZMII(I,3)] - fl 2 a v [sin i p DZMII(I,2) 

X x 

+ cos ip DZMI I (1, 3)] - ciscos ip DZMI I (1, 2) - sin ip DZMI I (1, 3)] 

+ 2fia [sin ip DZMI 1(1,2) + cos ip DZMII (1,3)] + £2 2 a [cos ip DZMII(I,2) 

Jr J 

R R R 

- sin ip DZMI 1(1,3)] + 2 £!{/ Zj/ZmOw* - / Z I //(w f, /mv)} = f Zj// 1^ 

0 0 0 

- Q 2 [DZMI (I, 6) - DZF( 1,1,5) + 003*11(1,2)] (23) 

pc 

where I - 1 to NZ; following the same procedure, w, the (p equation is 
NY 

2 {- yjDPYII(I,J,3) + 2QyjDPSI(I,J,5) + yj[DPYI(I,J,9) - DPF(I,J,1) 

J=1 

+ ft 2 (DPYII(I,J,8) - DPYII(I,J,6) + DPYII(I,J,3))]} 

NZ 9 

+ 2 {z r DPZIl("I,J,2) + z ,[DPZI( I,J,8) + DPF(I,J,3) - (DPZII(I,d,7) 

J=1 J 0 

- DPZII(I,J,4) )]} 

NP 

+ 2 {<j>,DPPII(I,J,4) + <p, [DPF(I,J,3) + DPPI(I,J,6) + fi 2 (DPPII(I,J,5) 

J=1 J d 

+ DPPI(I,J,7) )]} + {x H sin ip + ^x H cos ip - y H cos ip - fty H sin ip 

+ > DPMI 1(1,3) + a x £sini|> DPMII(I,4) + cos^(DPMII(I,7) + DPMII(I,8) 

+ 8 pc DPMI 1(1,6).)] + 2Qa x [cosi|;DPMII(I,4)- sim|;(DPMII(I,7) + j DPMII ( 1 ,8) 

+ 1 8 n DPMI I (I, 6) ] - ft 2 a [sin ip DPMII(I,4) + cos ^ DPMII(I,7)] 
c. pc X 
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+ a [- cosijj DPMII (1 ,4) + sin ip (DPMII(I,7) + DPMII(I,8) + 3 nr ,DPMII ( 1 , 6 )| ] 
y pc 

+ 2toy [sin ip DPMII (1,4) + cos ip (DPMII(I,7) + \ DPMI I (1, 8) 

+ \ 8 DPMII(I,6) ] + fl 2 a v [cos ip DPMII (I, 4) - sin ip DPMII(I,7)] 
pc y 

R 2 

= / $j//M^ - Sr [DPMII( 1 ,9) + B pc DPMII(I,4) + DPMI (1,10)] (24) 

where I = 1 to NP. The coefficients shown in Equations (22), (23) and 
(24) are defined in Appendix A. 

Equations (22), (23) and (24) may be written in partitioned matrix form 
as shown on the following pages. 


In order to.inclyde a. simple structural damping representation, terms of 
the form g w v, g,w, gJ> were added to Equations (5), (6), (7) resulting in 

the integrals DYD, DZD, DPD which appear in the following pages and are 
defined in Appendix A. 
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DYYII(I,J,1 ) 

' 


+ 4n 2 DYSI(I,J,l) 

o 

* DYPII(I,J,3) 

0 

• 

DZZI I ( I , J , 1 ) i 

DZPII(I,J,1) 

- DPYI I ( I , J ,3) 

! 

DPZII(I,J,2) j 

DPPII(I,J,4) 


1 

— 


“ 1 

- simpDYMII (1 ,1 )j ! cos*DYHII(l,l) 

0 

‘costtDYMI 1(1,5) 

! sin^[DYHI 1(1,5) 

I 


+ 3 n .DYMII(I,2)] 

lir 

! + e pc DYMII(I,2)] 

I 

0 j 0 

DZMII(IJ) 

simi»DZMII(I,2) 

1; - cos^DZMII (1,2) 



+ cosi|>DZMII(I,3) 

| + sin<|iDZMII(I,3) 

r 

s i rupDPMI I ( 1 , 3 ) | -cosiJjDPMII(I,3) 

DPMI I ( 1,3} 

sin^DPHII(I,4) 

1 

; - COS^DPMII(I,4) 



+ costpCDPHII(I,7) 

j + sin4>[DPMII(I,7) 



+ DPMI I.( I » 7) 

! + DPMI 1(1,8) 

1 

1 


+ P pc DPMII(I,6) 

j + B DPMI I (1, 6)] 

P J 



" 

DYSI(I,I,2)-DYYII(I,J,5) j 
-DYF(I,J,2)-DYYI(I ,J,2) j 
+ DYF(I , J, 1 ) J 

D YS I ( I , J , 3) - D YZ I I ( I , J , 5 ) j -DYSI{I,J,4)” 
^ pc DYZII(I,J,l) j 


DYD 

0 

0 


y_j 


-2« 

i 

1 • 

1 

DZY I ( I , J , 3 ) - DZF ( I , j , 1 ) | 

I 

n ! n 

+ 

0 

DZD 

0 

>' 



| . 

+3_ r DZYII(I,J,l) j 

... ....... ...... \ 

U 1 u 

I 








;) ' . 

i 

« 

i 

DPSI(I,J,S) ; 

0 « 0 
1 


0 

0 

DPD 

“ 

/ 
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j 

0 

0 ! 

0 

0 

0 


\ 





1 

0 

0 

0 

cosij/DZMII (1,2) 

sii#DZMII(I,2) 





- simpDZMI 1(1,3) 

cosi|»D7.MII(I,3) 



' 




-2Q 




cost|>DPMII(I,4) 

sim|iDPMII(I,4) 

| 




-sii#[DPMII{I,7) 

+cos^[DPMII{ 1,7) 


^ co DPMI I (I, 3) 

- 1 s1nfDPMII(I,3) 

0 

+ DPMI I (1, 8) 

+ j DPMI I (I, 8) 



j 


+ j DPMI I (I, 6) 

+ 1 DPMI I (1, 6) 


Nh* 



1 




DYF(I,I,3)-fi 2 [DYYII(I,J,l) ' 



-DYYII ( I ,0 ,4)+DYYI I (I , J , 7) 

DYF(I,J,4) 

DYF(I,J,5) 

DZF(I,J,2) 

DZF(I,J,3) + fi 2 [DZZII(I,d,3) 

DZF ( I , J ,4 )+0 2 [DZPI ( I , J , 2 ) 


+ DZZII(I,J,6)] 

- DZF(I, J,6)] 

DPYI{I ,J,9)-DPF(I, J,1 ) 

DPZI(I,J,8)+DPF(I,J,2) 

DPF(I,J,3)+DPPI(I,J,6) 

+fi 2 [DPYII(I,J,8) 

+fi 2 [DPZII ( I ,J ,4) 

+n 2 tDPPII(I,J,5) 

-DPYII(I,J,6) 

-DPZII(I,J,7)] 

+DPPI(I,J,7)1 

+DPYII(I,J,3)] 





0 

0 

I- 

a 

i 

0 

0 

X H 

V 

Z H 

a x 

[V 

0 

0 

0 

-simjjDZMII(I,2) 
— cosipDZMI 1(1,3) 

cosi/jDZMI 1(1,2) 
-si ru^DZMI 1(1,3) 

0 

0 

0 

-si rn^DPMI 1(1,4) 
-cosxpDPMI 1(1,7) 

cosxpDPMI 1(1,4) 
-si rupDPMI 1(1,7) 
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R R R 

/ Y t / / L - Q^-DYMII(I,3) + DYMI(I,4) - DYF(I,l,6)j 
o 1 x x 

R R R 

/ Z T / / L - Q 2 [DZMI(I,6) - DZF(I,1 ,5) + B 0ZMII(I,2)jj 

n v v « 


R R R 

/ #-/ / M - f2 2 [DPMII(I,9) + g DPMII(I,4)] 
_ o 1 x x ^ p 


+2ft 


R R R t R R x . RRx, RRx # 

/ Y T [- / / mvv' + / / v"/mv + / / m/ v'v' + / / mf w' w* ] 
o 1 xx xxo xxo xxo 


R R R R R 

/ Zj[- / / mvw' + / / (w"/mv)] 
o 1 xx xx 


0 


(25) 


HUB EQUATIONS 

Terms In Hub Equations Due to Blade Motions 

The kinetic energy of a rotor blade may be expressed as follows: 

T = j f (x 2 + y 2 + z 2 )dm 
o 


Assuming a spring-mass-damper model of the hub in each of the three 
orthogonal directions, and torsional models with respect to the body 
axes, the hub equations of motion including blade effects are: 
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. NB R 

x H + C H x H + K H x H + If mxdC = F H 
n x x x b=l o n x 

NB R 

mu y H + C„ y„ + K„ y H + If myd? = F 
H y H H y H H y H b=1 Q H x 

NB R 

m H z„ + L L + L z„ + If mzdC = F 
H z H H z H H z H b=1 H x 


NB R 

L a + C a + K a + E / m {- y(r3 + n0) + z(rsimf> +n cos^)}d£ 
a x x a x x a x x b=l o pc 


= F. 


a 


NB R 

Ia y ^ + Ca y ay+ Ka y ay+ b=/o m ^ x ^ re pc + T,e ) " 2 (rcos^ -nsim|0}d£ 


= F 


a 


Substituting the expressions for the accelerations of the inertial 
coordinates from Equations (13)-(15), performing the integration with res- 
pect to chord and blade span and assuming two of more symmetrical blades, 
the previous equations become: 


x^| Equation 

’ NB 

m H x H + C H x H + K h x h + NB[MI(1,1)x h ] + £ { 


R R , 

- / mvs i mjj - 2 nf mvcosifj 

O 0 


P R R R 

+ Qrf mvsini^ + / me0cj>sin^ + 2 fif me0$cos^ + (3 MI('1,2) + MI(l,5))a } 
o o o p y 



( 26 ) 
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y^l Equation 


NB R R 

m„ y H + C„ y H + K„ y„ + NB[MI (1 ,l)y„] + E {/ mvcos^ - 2 Of mvsimji 
H y H H y H H y H H IB=1 o o 

P R R R # 

- QrS mvcosijj - / me8<j>cos^ + 2 &f me0$simj; - (B MI(1,2) + MI (1 ,5))a } 
oo o pG x 


= F, 


(27) 


z^ Equation 


NB R R 


m u z u + Cm Zn + K u Zn + NB[MI(1 ,1 )z u ] + E {/ mw + / me4>> = Fn 
H z H H z H H z H H IB=1 0 0 H. 


(28) 


a Equation 

A 


NB 


: a S x +C a “x + K a “x - NB{B p( .MI (1 .2> + HI(1 .5)^ + SI- <V «v 

XXX Jl D I 0 


R 


R R 


R 


+ / me0v)cosij; + 2^(3 / mxv + / me0v)simj> + ft (3 / mxv 
o pc o o pc o 


R 


pc 

R .. R 


2 2 ' 


R 


+ / me0v)cos^ + (3 _„/ mxe0c|> + / me 0 <j>)cos^ - 2ft(3 / mxe0<j> 


o 

R 


pc 


o pc o 

R R 


R r\ i\ 

+ I me 2 0 2 |)sin^ + (8__ 2 / mx 2 + 23 mex0 + / me 2 0 2 )a 
o pc o pc o o x 


R R R •• R •• 2 2^2 

+ simp/ mxw + cos \jjf mew + sin^f mx^> + cos me4> - uismtyf mx c 


j \ p n * ^ 2*2 

+ 2sin^cos^/ mex + cos y/ me^)a + 2Q[sin^cos^/ mx - (sin ip 


P R Rp. 2 K 2 * 

- cos Ip)f mex - simpcos^/ me ]a y + (sin ipf mx + 2simjJcos^/ mex 

o 
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.2, R 2, 


, 2 ,_,„ 


R .2 ,_._ 2 _, „ 2 , R 


+ cos ipf me )a + 0 (simjcosif!/ mx 4 - (siny - cosy)/ mex 
ooo 


R 


o 

- sinycostf;/ me 4 )a + 20(sin 4 y/ mx 4 + 2s,inycosy/ mex + cos 4 ^/ me' 


R 


R 


„.2.„;„2,. 


j - O' (simfcosi pf mx 2 - (sin 2 ^ - cos 2 ^)/mex - sin^cos^/me 2 )a } = F ^ 29 ^ 
i y oi. . 


ay Equation 

NB R 

I a + C a + K a + NB{3__MI (1 ,2) + MI(l,5)}x H + E { - (& f mxv 
a y a y a y pc n TR=1 pc 


R 


R 


R 


IB=1 
R 


+ / me0v)siny - 20(3 / mxv + / meev)cosi{> + 0 (3 / mxv 


pc 0 0 
R .. R 


pc 


2,2: 


R 


+ /me9v)sim|; + (3 / mex0cj) + / me 0 cf>)simj> + 20(3 n „/ mex0| 


pc 


pc 


R p p. o^o R R 

+ / me 4 0 4 |)cos^ + (3 DG j mx 4- + 23 / mex0 + / me 4 0 4 )a - / mxwcosy 
0 p 0 pc 0 0 y 0 


2 R 2 9 R 

+ / mewsimjj - / mx<(>cosy + / me<)>sinij; + 0 4 (sin^cos^/ mx + cos^Z mex 


R 

r r 
0 


R 

r 1 

0 


R 

r n 
0 


2 R Rp 2 R 2 R 

- sin 4 y/ mex - sin^cos^/ me 4 )a + 20(- cos yf mx 4 + 2sin^cosi^/ mex 

0 0 x 0 0 

<3 R 2 , R 2 2 R 2 R 

- sin 1 "^/ me 4 )a - (sin^cos^/ mx 4 + cos 4 ^/ mex - sin y/ mex 

0 000 

R 2 2 2 R 2 R 2 R 

- sin^cos y/ me 4 )a + fr(- cos yf mx 4 + 2sinycosy/ mex - sin y/ me)a 

0 x 0 0 0 y 


R 2 ? R p R R 2 • 

- 2o(sinycosy/ mx + cos 1 pf mex - sin 4 y/ mex - sinycosy/ me )a 

0 0 0 0 y 

2 R 2 R 2 R 2 

- (- cos 4 i pf mx 4 + 2sinycosy/ mex - sin 4 y/ me. )a } = F (30) 

0 0 0 y y 
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Considering only the hub translational equations of motion and following 
a similar procedure as applied to the blade equations arbitrary functions 
for the elastic displacements are substituted into Equations (26)-(28) 
yielding: 

x^ Equation 

, NB NY 

m H x H + C H L + Ku Xu + NB[MI(1,1 )x h ] - Z simp Z YI(I , J,1 )y ] TR 
H x H H x H H x H H IB=1 IB J=] J.IB 

NB NP .. NB NY 

+ Z simp E PI(I,J,3)cf> , TQ + 2Q Z cosip TD E YI( I , J,1 )y , TD 
IB=1 IB J=1 J,IB IB=1 IB J=1 JjIB 

? NB NY NB NY 

+ £T Z simp TD Z YI(I,J. 4 l)y, T „ + 20 Z cosip TC Z PI(I,J,3)|, Tt 
IB=1 IB J=1 J,IB IB=1 IB J=1 J,I£ 


+ NB[3 pc MI(l,2) + MI (1 ,5)]Oy = F H 


y H Equation 

NB NY 

m H y H + C H y H + K h y H + NB[MI(l s l)y H ] + z^ cos^g E^ YI(1 ,J,1 )y J>; 


NB 
- Z 
IB= 


u m •» 1 1U 111 

cosijjjg Z PI (1 ,0,3)4) J IB - 20 Z simpjg Z YI(1 ,J,1 )yj IB 

= 1 J = 1 * IB=1 J = 1 5 


? NB 

- 0 Z 


cosip TR Z YI(1 ,J,1 )y, TR + 20 Z simp Z PI(1 ,J,3)<p , • 
=1 J=1 J,iB IB=1 IB J=1 J ’' 


+ NB[B pc MI(l,2) + MI(l,5)]a x = F H 


Equation 


NB NZ 


lu Zu + C H z H + Ku z H + NB [MI ( 1 ,1 )Zu] + Z Z ZlO.J.Dz, - 
H z H H z H H z H H IB=1 J=1 J.- 


NB NP 

+ Z Z PI (1 , J,1 )4> 

IB=1 J=1 J: 


IB F H. 
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Equations (31 )~ ( 33) may be solved for the hub accelerations and written 
in matrix form: 


m u +NB *MI(1 ,1 ) 
H x 

0 

0 


0 

m u +NB *MI (1 ,1 ) 

H y 

0 


NB 

E 

IB=1 


si n^ 


0 


IB 

0 cosip 
0 


IB 


NB 

+ E 2Q 

IB=1 


cos^P 


0 


IB 

0 simp 


IB 


0 


0 


0 

1 

0 

0 

1 


0 

0 

m„ +NB *MI(1 ,1 ) 
H 3 


YI(1 ,0,1 ) 


0 


a H 

** 

y H 

2 H 


-PI (1 ,0,3) 


■YI (1,0,1) 0 PI (1,0, 3) 

0 -ZI(1 ,0,1 ) -PI(1,0,1) 


YI (1 ,0,1 ) 0 -P I( 1 ,0,3) 

,0,1) 0 -PI (1 ,0,3) 

0 0 0 


0 

• • 
^0 


IB 


IB 


NB 
+ E 
I B= 1 


simP IB 0 
0 cos ip 


IB 


, 0 , 1 ) 0 0 

YI ( 1 ,0,1 ) 0 0 


L 0 


0 

41 

L 

0 

0 

0 

\ 0 

0 “ 

fV 


\ 

0 

o~ 


V 

o c Hy 

0 


- 

0 

k h 

H y 

0 



0 o 

c »z 

Z H 


0 

0 

V 


Z H 


^0 

z o 

4>.i 


IB 


( 34 ) 
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METHOD OF SOLUTION 


The coefficient matrices of Equation (25) with the hub angular motions 
a x and omitted may be defined thusly: 



"dYYII(I,J,1)+4A)YSI(I,J,1) ! 0 

1 

| -DYPII(I,U,3) 

[COIR] = 

0 

! DZZII(I,J,1) 

! DZPI I ( I , J ,1 ) 


-DPYII (I , J,3) 

■it 

| DPZII (I ,0,2) 

I DPPI I ( I , J,4) 


f-sin^DYMI'I(I,'l ) 

i{ cos^DYMII(I,l ) { 

* —————— — — — — — ■ 

...» .1 


[COIH] [SIB] = - 


0 


— 


s1mPPPMII(I,3) 


0 J DZMII(I,1) 

-cos^DPMII (I ,3) ! DPMI 1(1, 3) 


[CODR] = - 


|0YD+2ft{-DYYI(I-,J,2) 

2£2{DYSI (1,0,3) ‘j -2.QDYSI(I,J,4) | 

I < 

-DYYI I(I,J,5) 

-DYZII(I,J,5) { 

1 

+DYF(I,J,1 )-DYF( I , J ,2) 
+DYSI(I,J,2)) 

-e nr DYZII(I,0,l)} ! 
pc 1 

1 

2Q{DZYI(I,J,3)-DZF(I,J,1) 

o ! o 

I 

+ 3 n DZY 11(1,0,1 )} 

I 

1 

1 

_ . _j 

2SI DPSI ( 1,0,5) 

o ! o 

1 


— 


[CODH] [CIB] = - a 


- 0 -, 

0 


0 


- - - _ L * _ - - M _ . 

I 
I 


cos^DPMII (I ,3) ! -sin^DPMII(I,3) 


_0. 

0 

0 
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[COR] 


{FR} = 


(BF> = 


{FNL} 


DYF(I,J,3) 
-0 2 {DYYII(I,J,7) 
-DYYII(I,J,4) 
+DYYII(I , J,1 )} 

i 

l 

i 

DYF(I,J,4) ! DYF(I,0,5) 

1 

1 


DZF(I,J,3) ! DZF(I,J,4) + 

DZF(I,J,2) 

+Q 2 {DZZII(I,J,3) | +ft 2 {DZPI(I,J,2) 


-DZZI I ( I , J ,6) ) ! -DZF(I,J,6)} 

DPYI(I,J,9) 

DPZI(I,J,8) ! DPF(I,J,3)+DPPI(I,J,6) 

-DPF(I,J,1) 

+DPF(I,J,2) | +£2 2 {DPPII(I ,J,5) 

+ft 2 {DPYII(I,J,3) 

+0 2 {DPZII(I,J,4) ! +DPPI(I,J,7)} 

-DPYII(I,J,6) 

-DPZII(I,J,7)} | 

+DPYII(I,J,8)} 

1 

1 

r l 



DZMI (1,6) - DZF ( I » 1 ,5) + 3 nr DZMII(I,2) 


DPMI I (1, 9) + gDPMIItM) 

pc 


DYALII 

DZALII 

DPALII 


R R R , R R R R R x. R R x. j 

/ YjF- / / mvv' + f f v'7 mv + / / m/ v'v* + / / mf w'.w' j 
_o__ x_x__ __x_x x x_x__o x_x__o__. 

R R R R R R J 

/ Z,{ - f f mvw' + f f w'7 mv} 
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[SIB] = 


simfi 


IB 


0 

COS^jg 
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[RIOC] = [COIR] 
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(Y z ) = 
L f 

z 
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y H 
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Similarly, the coefficients in the hub equations of motion. Equation (27) 
may be defined as: 


m„ +NB*MI(1 ,1 ) 
H x 

[TM] = 0 

0 


0 

m„ +NB*MI(1 ,1 ) 

H y 
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0 

0 

m u +NB*MI(1 ,1 ) 
H z 
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(HF> = 


[BIRI] 

[BIRID] 

[BIRIO] 

[BIRIDH] 

[BIRIIH] 


[BIN][RIOC] 

[BIRI] [CODR] 

[BIRI] [COR] + [BSPR] 

[BIRI][CODK] 

[BIRI][COIH] 


Using the previous definitions, and assuming a sinusoidal forcing function. 
Equation (25) may be written as: 


(Y 7 } = ([RI0C]([C0DR]{Y 7 

A P L P 

*IB ^ 


} + 
IB 


[C0R]{Y 7 } 
L ? 


IB 


+{FR> ib + {BFJsinwpt 


+ {FNL} ib + [C0IH][SIB] ib (x h } + [codh][cib] ib (x h >!) 


(35) 


Equation (34) for the hub accelerations is written as: 

NB NB 

[tm](x h }= z [sib] ib [bin]{y z } + t [cib] ib [bdamp]{y z } 

!B=1 P IB IB-1 P IB 


NB 

+ E [SIB] [BSPR] (Y 7 } + [HC]{x h }+ [HK]{x u }+ {HF} 

IB=1 Z P IB H H 


(36) 
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Solving for the blade accelerations from Equation (35) and substituting 
the result into Equation (36) removes the inertial coupling in the system 
and allows solution of the hub accelerations directly. 

NB -1 

ty = ([TM] - 1 [SIB] ib [BIRIIH][SIB] ib ) (([HC] 

IB-1 

NB 

+ 2 [SIB] ib [BIRIDH][CIB]){x h > + [HK]{x h > + {H F > 

IB=1 

NB 

+ z (([sib] ib [birid] + [cib] ib [bdam]){y z } 

IB=1 P TD 


+ [SIB] ib [BIRIO]{Y z } + [SIB] ib [BIRI]({FR> ib + {BF}sinw F t 

P IB 


+ (fnl} ib ))) 


(37) 


Solution of Equation (37) is effected by use of a fourth order Runge- 
Kutta timewise integration technique. Once the hub responses are 
obtained for a particular time increment, Equation (35) is solved for 
the blade motions. These blade motions are, in turn, substituted into 
Equation (37) to yield the hub responses for the subsequent time 
increments. This procedure is continued until the total time interval 
of interest is reached. 

PROGRAM FEATURES - V22 


The V 22 program, developed to implement the solutions of the equations 
developed above, was designed to achieve the flexibility and ease of 
use necessary to make it a useful research tool. The details of the 
necessary and optional inputs are described in Appendix B. Some of the 
major features of the program are outlined in this section. 

1. General input - The input data, in most cases, may be input 

in any order. Certain data is optional as input and need not be entered 
unless used. In running successive cases, only changed data need be 
input. 

2. No. of Blades - One to four blades may be specified. With a 
hub, a minimum of two is required. 
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3. Modal input - The method of solution (Galerkin's method) uses 
separate in-plane, out-of-plane, and torsion "modes" as generalized 
degrees of freedom. They need not be normal modes (and thus need not 
be changed for changes in parameters and rotor speed). The equations 
contain the modal displacement as well as the first and second deriva- 
tives, Only the second derivative and the root slope of each mode is 
required as input. The program integrates and normalizes each mode to 

a value of unit displacement at the tip. Modes which are representative 
of the expected normal mode shapes are suggested. 

4. Frequencies - Rotational and forcing frequencies are input 
independently. A frequency sweep may be simulated with a single card 
for each discrete frequency, ft = 0 is allowed, 

5. Hub data - The hub is represented by a single degree of freedom 
spring, mass, damper in each direction. These parameters may be easily 
changed with forcing frequency to simulate actual hub impedances. 
Optionally 0, 1, 2 or 3 directions of motion are allowed. Sinusoidal 
forcing in any of these directions may be specified. 

6. Blade forces - Optional forces may be applied at any blade 
station. An optional 1- cos type excitation for a specified fraction 
of one revolution is available, 

7. Floquet option - If this option is selected, the program 
automatically produces a Floquet transition matrix by performing one 
(force) cycle for each initial condition. A further option ignores 
the steady effects due to such quantities as twist and precone. 

8. Periodic solution - A periodic solution is obtained through 
the Floquet matrix which allows the solution for the initial conditions 
which will result in periodicity. 

9. Nonlinear options - All, in-plane only, or no nonlinear effects 
may be optionally included in the solution. 

10. Solution controls - The integration procedure used includes 
error checks and automatically selects appropriate sized integration 
increments. The user specifies quantities such as the number of cycles, 
error bound, variable to be tested for error, initial condition (unless 
periodic solution is specified). 
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SYSTEM IDENTIFICATION 


The mass parameters of any continuous structure are not amenable to 
direct verification. An operational rotor blade is subjected to very 
large centrifugal forces and undergoes a highly coupled motion which 
includes deformation of the elastic axis in and out of the plane of 
rotation and torsional deformations about this axis. Under these con- 
ditions, the adequacy of the mass parameters which are based on a 
fictitious homogeneous section are in some doubt. While there is no 
way of directly measuring these parameters, the relationship between 
them and the normal modes, which are at least conceptionally measurable, 
are well understood. 

The method of incomplete models (References 4 and 5), which addresses the 
problem, has been adapted to the specific set of rotor blade parameters. 
This formulation determines the minimum changes required in the in- 
tuitively derived set of mass parameters to make them compatible with 
the measured modes. There are other related developments and features 
of the implementation program which will yield valuable information 
regarding the adequacy of the analytical model. These are derived and 
discussed in this section. 

THEORETICAL BACKGROUND 


Consider a discrete element dynamic model of a continuous structure. One 
part of this model is a mass matrix, M. If ^ is a vector representing 

the k-th normal mode, there exists a necessary orthogonality relationship 
as follows: 


yJm ? n = 0 k f n (38) 

If the modal vectors are considered to be known, and the masses unknown, 
this equation can be rewritten as a set of linear equations: 

AR = 0 (39) 


where A is a matrix_whose elements are products of the elements of the 
modal vectors, and R is a vector made up of the unknown elements of the 
mass matrix. There will be one equation for_each unique pair of modes 
and one unknown for each of the elements of M. The problem is formulated 
so that the symmetrical off-diagonal elements in the (symmetrical) mass 
matrix appear only once in the mass vector, M. 
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T T 

Since the scalar product is identical to T there will be 

NM(N:M-1 )/2 equations, where NM is the number of modes. If N is the 
number of coordinates, the number of unknowns may be between N and 
N(N+l)/2 where the first corresponds to a pure diagonal matrix and the 
upper limit corresponds to a fully populated mass matrix. As discussed 
in References 4 and 5 it is usual and desirable to have many more un- 
knowns than equations. There are, thus, an infinite number of solutions 
which will satisfy Equation (39). 

It is, of course, desired to obtain that solution which is the most 
representative of the actual structure. This objective may be achieved 
by finding, of those mass matrices which satisfies Equation (39), and 
(38), that which is closest to an analytically derived model of the 
structure. That is to say, determine the smallest possible changes 
in the analytical mass matrix necessary to_orthogonalize the measured 
modes. This may be done as follows. Let R^ be a vector which is made 

up of the elements of the analytical (or approximate) mass matrix and 

then write R = R^ + M, where SR* represents the required changes in R^. 

Substituting into Equation (39) yields: 

AAM = - AR ft (40) 

As discussed in Reference 5, the use of the matrix pseudoinverse yields 
a solution which has the minimum sum of the squares of the individual 

elements, i.e., AM^ AM = min. This solution may be written: 

3^, n = - A T (AA T r 1 AB A (41) 

The application to the specific rotor blade problem is given below, 
where certain other more detailed considerations of minimization and 
other constraints are discussed. 

ROTOR BLADE APPLICATION 

The normal modes of a rotor blade are conveniently expressed in terms 
of the in-plane, out-of-plane, and torsional components as follows: 
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where v, w, and $ are vectors, each having NX elements, when NX is the 
number of blade stations used in the analysis and test. 


The mass matrix, as can be seen from the acceleration terms of Equations 
(5), (6), and (7) may be conveniently partitioned, where each of the 
partitions is a diagonal matrix of order NX. The rotor blade form of 
Equation (38) then may be written: 


[v T w T $ T ] k 




N 

I 

1 


K 

I - (mee ) i 


— -■* — 4 — H 

0 j m i | ^ me ^i 

K™ > 1 *-—-* 

jj-(me9) i J (me) i J (mkm 2 ) i 


= 0 


k f n 


w 


(42) 


The elements of these diagonal partitions (i = 1, 2, ...NX) represent a 
"lumped mass" (rather than a "distributed mass") formulation of the 
problem, which is inherent in the matrix representation. 

Treating the modal displacements as knowns and the mass parameters as 
unknowns, the analogy of Equation (39) becomes: 


’ V k V n 1 W k ' ■ V k 4> n * , k 

k i n i I k i n i | K 1 n i | ' k i n i 1 
+w k. w n. ! +W n.^k. ! " v n/k. ! 

1 I I 


m 

me 

me® 


= 0 


mk 


m 


(43) 


where, typically, v, represents the in-plane displacement of mode k 

K i 

at station i. Each partition of the matrix A has NM(NM-l)/2 rows (one 
for each pair of modes, k < n) and NX columns, one for each station 
(i = 1, 2... NX), This, there are NM(NM-l)/2 equations and 4 • NX 
unknowns (in vector M). 
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( 44 ) 


As above, let M = M A + AM, then Equation (43) is: 

AM = - AM a 

This equation may be solved for minimum AM as in Equation (41). However, 
if there are significant differences in size between elements of M A 

it would not be appropriate to simply minimize the sum of the squares of 
the magnitudes of the changes. This procedure could result in excessively 
large percentage changes in the very small elements, even though these 
same changes would be quite small compared to the larger elements. 

It is possible, through a simple modification in the method to minimize 
the sum of the squares of the percentage changes, which is a more 
reasonable criteria. In addition, it is also possible to allow the 
analyst to indicate a level of confidence in each element, so that items 
with higher confidence will tend to change least. The result is a 
solution which has a weighted sum of squares of the elements at a 
minimum. 

Let the i-th element of M A be designated ( ) . and the corresponding 
assigned weighting factor (confidence level ) be w.*. Form a diagonal 
matrix W such that . = W 1 -/(M A ) 1 -. Then the elements of WM are 

(WM). = w.(M) i /(R A ). 

which is the function that should be minimized. This is achieved by 
making WM the unknown in Equation (44) by inserting I = W"^W as follows: 

AW -1 WM = - AR a (45) 


(WAM)min = - W" 1 A T {AW" 2 A T } AM a 


M = M a - Vf 2 A T {AW" 2 A T } AM a (46) 


M T W 2 AM = min 


Then, as above: 


and 


such that: 
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MASS CONSTRAINTS 


Since the number of equations is generally much less than the number of 
unknowns, it is possible to add equations to Equation (43) which will 
impose constraints on the mass parameters. In the method as implemented, 
five optional constraints are available. These each maintain the following 
mass characteristics at the same value they have in fl^. These constraints 

refer to: total mass, radial static moment (eg), chordwise static moment 
(eg), flapping moment of inertia, and feathering moment of inertia. These 
five constraints result in the following equations added to Equation (43): 
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The solution then becomes: 

R = M A - W-WW-V} 1 (AR a - r} 


(47) 


(48) 


where r is the right-hand side vector of Equation (43) augmented by that 
of Equation (47). 

Thus it is possible to find the necessary changes in the mass matrix to 
make the modes orthogonal, such that the weighted sum of squares of the 
percentage changes is a minimum and the specified mass characteristics 
remain invariant. 
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ROTATIONAL SPEED EFFECTS 

The mass matrix discussed above is independent of the blade rotational 
speed, ft. The natural frequencies and the mode shapes, however, do 
change as the rotational speed is changed. The analysis, as presented, 
is valid for any single ft including the nonrotating condition, ft = 0. 

The fact that the modes change with ft provides an opportunity for 
obtaining additional information within a fixed range of forcing fre- 
quencies over that available for a conventional nonrotating structure. 
If several modes are measured at each of several values of ft, the same 
mass matrix must make the modes at any one ft orthogonal. 

Thus, the method above has been modified to accept modes at different 
values of ft and to set up an equation for each pair of modes at each ft. 
For example, if the first three modes were identified at three ft's, 
there would be nine equations which would provide information about 
the mass matrix. 

MODE CHANGES 


The measured data, even if exact, is not sufficient to uniquely identify 
an analytical model and thus intuitive decisions are required of the 
user of this method. Some of these decisions have been described above. 
In addition to finding the necessary mass model changes, consideration 
should be given to the unavoidable errors in the measured modes. It is 
of interest to determine the minimum changes that would be required in 
the modes to achieve orthogonality using the analytical mass matrix. 
Methods of this general type have been suggested in the literature from 
time to time (References 6, 7, and 8). The method developed and 
implemented in this study uses techniques very similar to those for the 
mass identification, above. 

If the modes are placed in order of decreasing confidence (usually in 
order of increasing natural frequency), the method assumes the first is 
correct, changes the second to make it orthogonal to the first, then 
changes the third to make it orthogonal to the first and the corrected 
second mode, and similarly for all higher modes. The changes are the 
minimum sum of squares of the percentage changes of each element as 
discussed above. 

The first equation may be written: 

+ A'f 2 ) = 0 
or 

AAT 2 = - AT 2 (49) 
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where A = 


^M 


is a 1 x 3*NX matrix. 


The next equation then is: 


where: 


AA * 3 



( 50 ) 


A = 





M and A is a 2 x 3*NX matrix. 


The equations for Ay^ results in an A matrix of order M-l x 3 NX. The 

procedure used for solving these equations is the same as that described 
above without any weighting function, w, assigned to the individual 
elements. 

PROGRAM FEATURES - ROTS I 


This program has been designed to provide maximum flexibility as a 
research tool. The theoretical basis has been described in the previous 
paragraphs. The Users Guide with detailed input instructions is in 
Appendix B. This section will briefly outline several of the major 
features and capabilities of the program. 


1. Normalization - the modes may be normalized so the diagonal 
elements of the generalized mass matrix are unity. 

2. Add modes - after a computation is completed, additional 
modes may be added and further operations may be performed. 

3. Rotational speed - modes of more than one rotational speed 
may be included (for mass identification) and the proper 
pairing takes place automatically. 

4. Random errors - modes may be polluted with random errors 
with specified random or bias errors for sensitivity 
analyses. 

5. Modal changes - necessary mode changes as described above 
with constant mass matrix may be determined. 

6. Limited mode changes - modes may be changed as above but 
with limits specified for each mode. Truncation or scaling 
options are available. 

7. Mass changes - weighted minimum mass changes may be obtained 
as described above. 
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8. Invariant stations - the mass parameters at selected stations 
may be held invariant. 

9. Invariant parameters - mass, static moments, moments of 
inertia may optionally be maintained invariant during mass 
identification. 

10. Sequential operations - the various options may be executed 
sequentially, for example, one may first change all the modes 
up to some specified percentages and then finish the correction 
by modifying the mass matrix. 
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METHOD APPLICATIONS 


The two programs were continually checked for validity and reasonableness 
during their development. All features were at least qualitatively 
verified. The programs were then used to approximately simulate the 
tests to be carried out in the vacuum chamber at the Langley Research 
Center. These applications are described below. 

SIMULATION DATA 


The system simulated consisted of two blades and a hub with a vertical 
degree of freedom. The system was excited by a vertical force at the 
hub. 

Each blade was represented by 17 stations. The parameters are shown in 
Table 1 which is taken from an actual computer run. The units are all 
in the lb-in-sec system. 

Tables 2, 3, and 4 show the modes used as generalized degrees of freedom. 
These modes were developed from an approximate cantilever eigenvalue 
analysis. The one in-plane, three out-of-plane, and one torsional mode 
represent all the modes expected to have natural frequencies below 12/rev 
at 0 = 25 rad/sec. The tables illustrate the second and first derivative 
and the displacements after normalization. 

2 

The hub was arbitrarily represented by a mass of .6 lb-sec /in and a 
spring rate of 20,000 1 b/ in. This implies a rigid rotor vertical 
natural frequency of 111. rad/sec or 4.44/rev at n = 25 rad/sec. 

Tables 5 and 6 give the blade and hub matrices as described in the 
section on Method of Solution and Equations (36) and (37). 

SIMULATION COMPUTATIONS 


Simulated frequency sweeps were carried out at = 0, 20, and 25 rad/sec. 
The Floquet option was used to obtain precise periodic responses to 
sinusoidal excitation at the hub. The objective of the simulated test 
was to locate the frequencies at which hub vertical anti resonances occur. 
At this frequency, cantilever conditions exist and since damping is Tight 
the displacement will be a good approximation to the coupled cantilever 
normal modes of the blades. Since discrete frequency inputs are required, 
a coarse sweep was first carried out, followed by necessary points at 
small frequency intervals to identify the point of zero hub displacement. 
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TABLE 1. BLADE PROPERTIES 
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TABLE 2. IN-PLANE MODES 
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TABLE 3. OUT-OF-PLANE MODES 
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SECOND DERIVATIVES 
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TABLE 5. THE BLADE INERTIAL, DAMPING, STIFFNESS MATRICES, AND INVERSE 
OF THE INERTIAL MATRIX AT Q = 25 RAD/SEC (SEE EQ. 36, 37) 


COIR 


i 3.842E 

02 0.0 


0.0 

0.0 

5. 5276 

01 

j 0.0 

4.659E 

02 

2.379E 02 

-2.544E 

01 5.6 33 6 

02 

1-0.0 

4.712E- 

•02- 

--1.-848E- 02 

— *9.288 E 

01- -5.5 58 E 
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; 0.0 

6.0476 
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-1.883E 
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1.128E 

02 1.0Q5E 

03 

5.848E 02 

-8.9146 

01 3.0 80 E 

04 

CODR 

. 






“6.6046“ 

02— 1.4936 

01 

-3.420E-01" 

-2.353 E 

01-4. 104 E 

02 

-6.850E 

01 0.0 
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3.8 19E 
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. 0.0 

0.0 


-2.737E- 
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0.0 — ■— 
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04 
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3.021E 

06 8.414E 
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! 1.294E 

05 -4-.525E 

05 

-1 .113E 06 

-1.7396 

06 -4.470 E 

06 

-9.931E 

04 4.499E 

05 

5.408E 05 

-1.2276 

06 2.074E 
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5.645E 

04 -5.593E 

0 5 

3.336E 05 

3.6816 

06 -5 .06 2 E 
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| 9.821E- 

“03-— 9.-1676 

05 

-1.6 32 E 06- 

•T-4.6T9E- 

' 05 * -1 « 1 79 E 

09 


RIOC 


2.604E-03 -1.773E-06 -2.421E-05 -9.396E-06 -4.879E-06 
7 * 5 26E- 06 1. 4086-02 2.540E-02 1.064E-02 -2.563 E-05 

• 8 *3 276-06 2 v 001 6—02 * - 4.458 E— 0 2 -1.92 86-02 -2.8 36 E-05 

-4. 841 E- 06 3. 16 86-02 5.1 88E-02 1.599E-02 1.648 E-05 
-9.959E-06 1.2336-05 1.683E-04 : 6.531E-05 3.391 E-05 
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TABLE 6. HUB MATRICES (SEE EQ. 36, 37) 


BIRIIH 


I' 1.915E-01 -1.9156-01 -8.149E-08 
|- t . 9 1 S E- 0 1 — lv 9 1 5E-01 8.149 E-08 


1.313E-04 -1.313E-04- 


3.109E-01 



BIRID 

! 2.465E-Q1 -5.578E-03 -1.277E-02 -8.790E-03 HU533S-01 

-2 .465E-01" *5v57 8E- 03 l . 2 77E-02” 8.790E-03 '1.533 E-01 

5.7 12E-02 -4.236E-07 -9.700E-07 -6.675E-07 -1.164E-05 


BIRIO 

-7.632E 02 2.381E 01 3.1566 02 1.128E 03 2.748E 02 

7.632E 02 -2.381E 01 -3.156E 02 -1.128E 03 -2.748E 02 
- 2. 4 40E-0 1” 1 v3 29E ~0 2 - -2 .77 0 E ••02” 3 . 8 1 9 £ 0 3 3.3646 03 


BIRIDH 

6.286E-03 -6. 286E- 03 0.0 

-6.2866-03 ' 6.286E-Q3 0.0 

! 2.9206-03- -2.920E-03 0.0 


BIRI 


i 3.736E-04 - 7V553E-08 -1.032E-06 -4.0Q2E-07 -2.078 E-07 
-3.736E-04 7 . 553E-08 1.032E-06 4.002E-07 2.078E-07 

| 2 .6 37E-0 8 - 2. 920E- 03 -5 . 237 E-03— 2 .0876-03 -9 . 6 54 E-08 
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Note that since the responses are the steady-state periodic responses to 
sin w^t forcing, the response at w f t = 90° is the "real" or in-phase 

component and the response at w^t = 0° is the "imaginary" or out-of-phase 

component. Figures 3-12 illustrate the hub responses in the vicinity of 
the antiresonant frequencies. In most cases, the imaginary component is 
too small to be observed and is not plotted. These figures also illus- 
trate the system natural frequencies. 

At each anti resonant frequency the amplitudes of the generalized co- 
ordinates were determined and normalized on the largest component. These 
represent cantilever coupled modes and are summarized in Table 7. A 
Campbell diagram displaying these frequencies is given in Figure 13. 

The actual mode shapes in each of the three directions are shown in 
Figures 14-19. Figures 14 and 15 are the in-plane and torsion component 
shapes. Since only one of each was used as a degree of freedom in the 
simulation, these shapes are the same for all the coupled normal modes 
obtained. The magnitudes are given in Table 7. The out-of-plane bending 
was represented by three modes and different combinations appear for each 
normal mode. Figures 16-19 illustrate these shapes for all the modes 
referenced in Table 7. The amplitude of these normalized modes is the 
sum of the z-j, z^ components given in the table. The small but 

noticeable effect of rotor speed is illustrated in these figures. 

SYSTEM IDENTIFICATION 


In order to test and illustrate the ROTS I methods and program, the data 
obtained in the simulation runs, above, was treated as if it were actual 
test data. The analytical model was first intuitively reduced to an 
eight station lumped mass model as shown on Table 8. 

Several combinations of these modes were used for mass identification. 

A sample output is shown in Table 9 where the original parameter, the 
modified parameter and the percentage changes are given. Table 10 
summarizes the sample analyses that were carried out showing mean 
absolute percent changes of the four parameters: m, e, 6, The 

results are not satisfactory as shown. In addition to these cases, 
other combinations of modes at different rotational speeds have yielded 
very large percentage change requirements. 

Since similar analyses on other structures using as many as ten modes 
and 150 unknowns have been successfully carried out, the large changes 
required for all but the simplest combinations is surprising. However, 
there are two significant considerations which may shed some light on 
this problem. 
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Figure 5. Hub Vertical Deflection vs Forcing Frequency, ft = 0. 3rd OP Frequency = 222 Rad/Sec 





Figure 6. Hub Vertical Deflection vs 
Forcing Frequency, -ft - 20 
Rad/Sec. 1st OP Frequency 
= 25.25 Rad/Sec 


Figure 7. Hub Vertical 
Deflection vs Forcing 
Frequency, ft = 20 Rad/Sec. 
An Apparent Highly Damped 
Response in Vicinity of 
1st IP Frequency 



Figure 8. Hub Vertical Deflection vs Forcing 
Frequency, ft = 20 Rad/Sec. 2nd OP 
Frequency = 86.25 Rad/Sec 
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Figure 9. Hub Vertical Deflection 
vs Forcing Frequency, ft = 
25. 1st OP Frequency = 
30.49 Rad/ Sec 



Figure 10. Hub Vertical 
Deflection vs Forcing 
Frequency, ft = 25. Apparent 
Highly Damped Response in 
Vicinity of 1st IP 
Frequency 



Figure 11. Hub Vertical Deflection 
vs Forcing Frequency, ft = 
25. 2nd OP Frequency = 
95.52 Rad/ Sec 


Figure 12. Hub Vertical 
Deflection vs Forcing 
Frequency, ft = 25. 3rd OP 
Frequency = 243.3 Rad/Sec 


49 



TABLE 7. CANTILEVER NORMAL MODES 


Q 


Type 

(Rad/ Sec) 

w 

y 

1st OP 

0 

10.19 

.0655 


20 

25.25 

.0408 


25 

30.49 

.0354 

1st IP 

0 

54.55 

1.0 

2nd OP 

0 

74.20 

-1.928 


20 

86.25 

-.6268 


25 

95.52 

-.4180 

3rd OP 

0 

222.0 

.1569 


25 

243.3 

-.131 


fL 

h 

H 

t 

1.0 

.0868 

-.0100 

.000097 

1.0 

.0020 

-.0013 

.000049 

1.0 

-.0198 

.0013 

.000037 

-.3393 

.8503 

-.0537 

.000801 

-.3015 

1.0 

-.0561 

. 000348 

-.2863 

1.0 

-.0448 

.000845 

-.2839 

1.0 

-.0379 

.00104 

.3240 

.4024 

1,0 

.003650 

.287 

-.359 

1.0 

.000756 
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Figure 13. Campbell Diagram Illustrating 

Natural Frequencies Obtained During 
Simulated Frequency Sweep 
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ft 0) 

0 10.19 RAD/ SEC 



Figure 16. Out-of-Plane Shapes From 1st OP Coupled Modes 
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TABLE 9. SAMPLE PARAMETER IDENTIFICATION OUTPUT 
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TABLE 10. SUMMARY OF MASS IDENTIFICATION RESULTS 


Input Modes 










25 

Maximum 

Mean 


Case 


a 

= 0 


20 

Rad/Sec 

Change 

(%) 


No. 

1 

2 

3 

4 

1 

2 

1 

2 3 

(%) 

Change 

Comments 

1 

X 

X 







.7 

.3 

1 Eq., 24 unknowns 

la 

X 

X 







1.5 

.6 

5 mass constraints 

6 Equations 

2 

X 

X 

X 






- 

- 

very large changes 

3 

X 

X 


X 





25.5 

9.0 

3 Equations 

3a 

X 

X 


X 





26.4 

9.0 

mass const, 4 
Equations 

3b 

X 

X 


X 





24.7 

9.2 

5 mass constraints 
8 Equations 

4 

X 

X 

X 

X 





379.0 

65.0 

mode 3 apparently 
inconsistent 

5 





X 

X 



1.2 

,6 


6 







X 

X 

3.0 

1.2 


7 







X 

X X 

13.6 

3.8 

3 Equations 

7a 







X 

X X 

250.0 

43.0 

5 mass constraints 
8 Equations 

8 





X 

X 

X 

X 

307.0 

45.0 

2 Equations 

9 

X 

X 



X 

X 

X 

X 

412.0 

51.0 

3 Equations 
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(1) Only five generalized coordinates (modes) were used in the 
simulation. The torsional mode participated only slightly in any of 
the normal modes, thus there are essentially only four degrees of 
freedom in the problem. Whenever the number of equations approaches 
four, the necessary changes can be expected to become large. This 
situation, of course, will not exist in a real test and, thus, it is 
expected that the analysis of actual test data may be considerably 
more successful. It is possible to use the simulation program using 
up to 11 degrees of freedom and it is expected that the results of such 
an analysis would be considerably improved. 

(2) No case where data from two rotor speeds was used was success- 
ful. It is apparent, from Figures 14-19, that the predicted changes in 
mode shape with rotor speed is quite small. Thus, the equations resulting 
from the same modes at different speeds will be nearly identical and 
result in a nearly singular matrix. In the simulation program, as used 
in this report, the same modes were used as generalized coordinates for 
all rotor speeds, thus accentuating this condition. Whether the use of 
actual test data will improve this situation is uncertain since it is 
well known that the mode shapes change only slightly with rotor speed. 

It is also noted that any combination which included the third mode at 
ft = 0 yielded poor results. No particular reason is seen for this 
effect, except that the second and third modes contain highly coupled 
in and out-of-plane responses. Since the in-plane and first out-of-plane 
mode are quite similar, there may be some analytical problems in 
orthogonal i zing those modes with the analytical model used. 

As an illustration of the mode change analysis, keeping the mass matrix 
invariant, the three modes at ft = 25 rad/sec, were processed. The required 
changes are quite small and the results are shown in Table 11. 
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TABLE 11. MODE CHANGES REQUIRED FOR ORTHOGONALITY 


Si = 25 rad/ sec 


Percentage Changes 

Mode 2 Mode 3 


Sta 

Mode 1 

V 

w 

i 

_v 

w 

i 

1 

No change 

0 

-.15 

0 

.01 

-2.53 

0 

2 


-.01 

-1.45 

0 

.01 

-11.00 

.01 

3 


• 

o 

ro 

-2.18 

0 

.20 

-.52 

0 

4 


o 

• 

i 

-1.42 

.01 

.42 

2.73 

0 

5 


-.04 

-.22 

.01 

.41 

-.22 

0 

6 


-.06 

1 .01 

.01 

00 

LO 

• 

-1.00 

0 

7 


-.09 

3.01 

.01 

.87 

3.75 

.01 

8 


CO 

o 

1 

1.46 

0 

.31 

4.21 

0 
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CONCLUSIONS AND RECOMMENDATIONS 


Two separate analytical methods have been developed. They both have been 
used as a basis for computer programs. The two programs are expected to 
be useful research tools for evaluating rotor dynamic analytical models 
in conjunction with the vacuum chamber whirl tests to be conducted at 
the Langley Research Center. 

The first program allows the analyst to attempt to model these tests and 
to observe the agreement between analysis and experiment. The analytical 
model includes the important dynamic features of the test, such as hub 
degrees of freedom, non-uniform parameters, stiffness coupling between 
out-of-plane and in-plane motion, and the ability to simulate forcing 
frequency sweeps independent of rotor speed. The program has been 
designed to allow convenient changes in parameters, number of degrees 
of freedom, types of nonlinearities, periodic or transient solutions. 

The effects of parameters in blade responses, natural frequencies, and 
normal modes may be easily studied. 

The second program, which is an adaptation of methods previously applied 
to nonrotating structures, makes use of observed blade normal modes to 
correct the mass and inertial coupling terms used in the analytical 
model. Other options allow the analyst to study the possibility of in- 
accurate modal measurements and combinations of modal and mass parameter 
changes. In addition, a feature which produces controlled random varia- 
tions in the measured modes allows for a study of sensitivities of these 
results to inaccuracies in the observed data. The method also has the 
capability of making use of modes measured at more than one rotational 
speed. 

Both programs have been extensively tested for validity and sample 
computations have been presented in this report. The second program 
which performs a class of system identification analyses, was tested 
using results obtained from the simulation program. The capability to 
handle more than a few modes or modes at more than one rotational fre- 
quency has not been demonstrated. The lack of adequate success is 
believed to be due to the relatively small number of generalized degrees 
of freedom used in the simulation program. Since other related applica- 
tions of this technique have been significantly more successful, it is 
anticipated that the analysis of actual test data or the use of simula- 
tions having a larger number of participating modes will yield useful 
results. 
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The simulation program has the capability to use eleven blade generalized 
degrees of freedom. This limit is purely due to the dimensioning limita- 
tions and simple program modifications can increase this limit to any 
desired value. The simulation carried out used five modes as degrees of 
freedom. The lower frequency responses obtained are believed to be quite 
valid and this validity only becomes weaker as frequency ranges are 
reached which in reality include participation of modes which were not 
included in the analysis. 

The following recommendations are made for useful continuation of this 
research. 

(1) Develop an analytical model, which is a better intuitive 
representation of the actual rotor system to be tested. 

(2) Simulate specific test conditions and make direct comparisons 
with actual test responses. If obvious apparent discrepancies exist, 
make rational intuitive changes in the analytical parameters whenever 
such changes can be justified by consideration of the physical character- 
istics of the rotor. 

(3) Use actual measured normal modes in both the nonrotating and 
rotating conditions to correct the mass and inertial coupling parameters 
and to study the sensitivities to measurement errors. Use these results 
to evaluate the possibility of obtaining significant information from non- 
rotating tests alone. Evaluate the use of this method to improve the 
analyst's capability to derive a more satisfactory model from the physical 
characteristics of the blades prior to any testing. 

(4) Use the simulation program for conditions and blades other than 
those tested to study the effects of blade and hub parameters on natural 
frequencies, blade and rotor responses and stability. 

(5) Because the simulation program is a convenient, flexible and 
adaptable program, it is strongly recommended that further developments 
of this program to include aerodynamics, controls and a more comprehensive 
fuselage representation be considered. 
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APPENDIX A 


DEFINITIONS OF INTEGRALS 


Mass Integrals (Sta. No., Coefficient No.) 
R 

/ = / ( )dx 
x 


MI ( 1 , 1 ) 


/ m 

MI 1(1,1 ) 

= 

/MI (1,1) 

MI (1,2) 

= 

/ mx 

MI I (1,2) 

= 

/Ml (1,2) 

MI (1,3) 

= 

/me 

Mil (1,3) 

- 

/MI (1,3) 

MI(I ,4) 

= 

/mex 

Mil (1,4) 

= 

/MI (I, 4) 

MI (1, 5) 

= 

/ me0 

MI 1(1,5) 

= 

./MI (1,5) 

MI (1, 6) 

= 

/ mex9 

MI 1(1,6) 

= 

/MI (I, 6) 

MI (1,7) 

= 

2 

ra 2 

Mil (1,7) 

= 

/MI (1,7) 

MI (1,8) 

= 

/mk m 0 

m 2 

MI I (I, 8) 

= 

/MI (I, 8) 

MI (1,9) 



MI 1(1,9) 

= 

/MI (I, 9) 

= 

/mAK0 


MI (I, 10) 

= 

/K a 2 t9' 





I = 1 to number of blade stations 
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Y Integrals (Sta. No., Mode No., Coefficient No.) 


R 

f = f ( )dx 
x 


YI(I, J,1 ) 

2 

/mY 0 

YII(I,J,D 

= 

S YI(I,J,1) 

YI(I,J,2) 

= 

/ meYj 

YII(I,J,2) 

= 

/YI(I,J,2) 

YI(I,J,3) 

2 

/me6Yj 

YII(I , J,3) 

= 

/YI(I,J,3) 

YI(I,J,4) 

= 

/ mxYj 

YII(I,J,4) 

= 

/YI(I,J,4) 

YI (I , J ,5 ) 

2 

f meYJ 

YII(I,J,5) 

= 

/YI(I,J,5) 

YI(I,J,6) 

2 

/mexGYj 

Y 1 1 ( I , J , 6 ) 

= 

/YI(I ,J,6) 

Y I ( I ,0,7) 

= 

/tY 3 

YII(I, 0,7) 

,= 

/YI(I,J,7) 

YI (I , J,8) 

2 

J V 9Y J 

Y I I ( I ,J,8) 

- 

/YI (I , J,8) 

YI(I,J,9) 

as 

/E 1 0 ' Y J 

YI 1(1, 0,9) 

2 

/YI(I,J,9) 

YI (I ,J,1 0) 

2 

r X e fl Y'j dx 





0 


I = 1 to number of blade stations 
0 = 1 to number of in-plane modes 
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Z Integrals (Sta. No., Mode No., Coefficient No.) 


R 

/ = / ( )dx 
x 


ZI(I,J,1) 

•= 

/raZj 

ZII(I,J,1) 

= /ZI(I,J,1) 

ZI(I,0,2) 

= 

/meZj 

ZII(I,J,2) 

= /ZI(I ,J,2) 

ZI(I,J,3) 

= 

/mxZj 

ZII(I,J,3) 

= /ZI( I ,J,3) 

ZI(I, J,4) 

= 

/mexZj 

ZII(I,J,4) 

= /ZI(I,J,4) 

ZI(I,J,5) 

= 

/me0Zj 

ZII(I,J,5) 

= /ZI(I,J,5) 

ZI(I,J,6) 

= 

JtZ3 

ZI I ( I , J , 6 ) 

= /ZI(I,J,6) 

ZI(I,J,7) 

= 

/e A TZ J 

ZII (I , J,7) 

= /ZI(I ,J,7) 

ZI(I ,J,8) 

= 

/E-,00 ' Z» 

ZII(I,J,8) 

= /ZI(I,J,8) 

ZI(I, J,9) 

= 

/ e A 0Zj 




I = 1 to number of blade stations 
J = 1 to number of out-of-plane modes 
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<j> Integrals (Sta. No., Mode No,, Coefficient No.) 


R 

/ = / ( )dx 
x 


PI(I,J,1 ) = /me$j 

PII(I,J,1 ) 

PI ( 1 ,0,2) = /mex$j 

PII(I,J,2) 

PI( I ,J,3) = /mee$j 

PI I ( I ,0 a 3) 

PI (I ,J,4) = /mK^j 

PI I ( I , J , 4 ) 

PI ( I , J ,5) = /mAK^ 

PII(I,J,5) 

PI(I,J,6) = /E^'j 


P I ( I , J , 7 ) = /K a I 2 t^ 

x 2 

PI ( I , J ,8) = / K a e^dx 



o 


I = 1 to number of blade stations 


= /PI(I,J,1) 
= /PI (I , J,2) 
= /PI(I,J,3) 
= /PI(I,J,4) 
= /PI(I,J,5) 


J = 1 to number of torsional modes 



Special Integrals (Sta. No., Mode No., Coefficient No.) 
R R 

/■*//( )dxdx 
x x 


SI(I,J,1) = fmf ^ YI(I,J,1 )dx 


SI(I,J,2) = /mYI(I,J,10) 


SI(I,J,3) = /mZI(I,J,9) 


SI(I, J,4) = /mPI(I,J,8) 

R o 

SI ( I , J,5) = / K A %YI(I,J,l)dx 
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v Equation Integrals 


R 

f = f { )dx 
o 


DYYI(K, J,2) 
DYYII (K, 0,1 ) 
DYYII(K, J,4) 
DYYII (K, J,5) 
DYYII(K,0,7) 
DYZII(K,J,1 ) 
DYZII(K,J,5) 
DYPII(K,J,3) 
DYMI(K,4) 
DYMII(K,1 ) 
DYMII (K,2) 
DYMII (K,3) 


/Y K 

/y k 

/y k 

/y k 

/y k 

/y k 

/y k 

/y k 

/y k 

/y k 

/y k 


/ Y 


YI(I,J,2) 

YII(I,J,1) 

YII(I,J,4) 

YII(I,J,5) 

Y X I ( I ,0,7) 

ZII(I,0,1) 

ZII(I ,0,5) 

PII(I,0,3) 

MI(I,4) 

Mil (1,1) 
Mil (I ,2) 
Mil (I, 3) 
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DYMII ( K,5) 


= /Y k MI 1(1,5) 

DYSI(K,J,i ) = /Y k SI(I,J,i ) i = 1 to 4 

DYF(K,J,D = /Y K (R - x)(meYj) R 

DYF(K,J,2) = /Y K e A YI(I,J,l) 

DYF(K, J,3) = /Y k EvY" 

DYF(K, J,4) = /Y k E ZJj 

DYF(K, J,5) = /Y K (EC 1 *0P|j + E ] 0 * P j ) 

DYF(K,1 ,6) = /Y K (ex + (me) R R(R - x) 

R R R 

DYD(K,J) = g v/ Y k / f Y, 

o h xx 
R R R 

DYALII (K) = / Y K / / L 

o x X 


K, J = 1 to number of (1-P, 0-P or torsion) modes 
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w Equation Integrals 
R 

/ = f ( )dx 


DZYI(K,J,3) 

s = 

/Z K YI(I,J,3) 

DZPI (K, J,2) 

= 

f\ PI(I, J,2) 

DZZII(K,J,1 ) 

= 

/z K ZII(I,0,1) 

DZZII(K,J,3) 

= 

/Z K ZII(I,J,3) 

DZZII(K, J,6) 

= 

/Z K ZII(I,J,6) 

DZYII(K,J,1 ) 

= 

/Z K YII(I,J,1 ) 

DZPII(K,J,1 ) 

= 

/z K PII(I,J,1) 

DZMI (K,6) 

= 

f\ MI (1,6) 

DZMII(K,i ) 

ts 

00 

o 

•*-> 

11 

r> 

1 — 1 

1 — 1 
1 — 1 
s 

M 

DZI(K,J,1 ) 

= 

/Z k [(R - xMmeeYj^ + e A 6YI(I,J,l) 

DZF(K, J,2) 

= 

/Z k AE9Y3 

DZF(K, J,3) 

= 

/Z K EwZ J 

DZF(K, J,4) 

= 

/z K [EC 1 *p^j + E 1 ©e* P^] 

DZF(K,1 ,5) 

= 

/Z k [R(R - x)(me0) R - e A x0] 

DZF(K, J,6) 

= 

/Z K [e A TPj - R(R - x)(mePj) R 
R R R 

DZD(K,J) 


V 1 z j 

0 XX 

R R R 

DZALII(K) 

■ 

' V ! L w 

0 XX 

K, J = 1 to i 

lumber of corresponding modes 
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cj) Equation Integrals 
R 

/ = / ( )dx 
o 

DPYI(K,J,9) = /$ K YI(I,Jj9) 

DPYII(K,J,3) = /$ K YII(I,J,3) 

DPYII (K,J ,6) = /$ K YII(I,J,6) 

DPYII (K,J ,8) = /$ K YYII(I,J,8) 

DPZI(K,J,8) = /® k ZI(I,J,8) 

DPZII (K,J ,2) = /$ K ZII(I,J,2) 

DPZII(K,J,4) * /$ K ZII(I,J,4) 

DPZII(K,J,7) = /$ K 211.(2 ,.J, 7) 

DPPI (K,J ,6) = /$ K PI (I ,J ,6) 

DPPI (K,J ,7) = /$ K PI (I ,J ,7) 

DPPII (K,J,4) = /$ K PII(K,J,4) 

DPPII (K,J ,5) = /$ K PII(I,J,5) 

DPMI I ( K, i ) = /$ K MI ( I , i ) i = 3, 4; 6 to 10 

DPjSI (K,0 ,1 ) = ;® k si(i,j,5) 

DPF(K,J ,1 ) = /$ K EC-|* YJ 

DPF(K,J ,2) = /$ K EC-j*Yj 

DPF(K,J ,3) = /* K EC-j *Zj 

R R R 

DPD(K,J) = g/$ K //$K-, 

o K x x 
R R R 

DPALII(K) = 

o K x x 

K, J = 1 to number of appropriate modes 
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APPENDIX B 


USERS GUIDE 
V22 

DYNAMIC ROTOR SIMULATION PROGRAM 


First card of each case is HEADING CARD (see next page for description 
and exceptions). 

All other data may be entered in any order (data blocks must maintain 
order within block). Data not entered (after 1st case) retains previous 
values (if any). All data is self identified by value of 10 punched in 
col 1,2 of card on first card of block. 

INPUT SUMMARY 


10 

Type of Data 

No. of Cards 

Required? 

01 

Blade Properties 

Block 

Yes (Must precede 
10 = 3,4 or 5,13) 

02 

Blade Data 

1 

No (Default to 0 1 s ) 

03 

Modes: In-Plane (Y) 

Block 


04 

Out-of-Plane (Z) 

Block 

N (At least one of 

05 

Torsion (P) 

Block 

No required) 

06 

Frequencies (£2, u f ) 

1 

Yes 

07 

Hub Data, X,M,C,K;F 

1 

No 

08 

Y 

1 

No 

09 

10 
11 
12 

' Z 

1 

No 

13 

14 

15 

16 

Applied Forces, Blades 

1 

No 

17 

Special Controls - Non! in, Floquet 

1 No 

(Default to Nonlinear 

18 

19 

20 

Solution Controls 

1 

Yes 

21 

Special 10 Cancel 

1 

No 
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HEADING CARD 


Col 1 

IC1 

#0 

Ends run (same as IEND = 3, see 

below) 

2 

IC2 

#0 

All input printed (else only new data printed) 

3 

IC3 

#0 

Prints definite integrals 


4 

IC4 

#0 

Prints coefficient matrices 


5 

IC5 

#0 

Writes data on tape (see below) 



6-80 Arbitrary heading 

The heading card is the first card of the first case and the first card 
of each following case unless the preceding case ended with IEND = 2 
(see below) 

GENERAL INPUT 


10 in col 1,2 of 1st card only of each block. 

IEND in col 80 of single card - see details of each block input. 

IEND = 1 end of data, followed by HEADING and new data 
= 2 same as 1 but omit HEADING card from next case 
= 3 ends run at completion of case 
No special ending required for block data input 
All data has following format. Real and integer input may be mixed. 

12, F8.0, 6F10.0, F9.0, II 

Do not use col 1 or 2 except for 10 (on first card of block) 

Do not use xol 80 except to end case 

TAPE DATA (IC5 #0) 

Uses FORTRAN unit 9. Data records are as follows ip (in degrees, 
not limited to 360), tip in-plane deflection, tip out-of-plane 
deflection, tip torsional deflection, x^, y^, z^. Blade 1 only 


73 



1 10 = 1 BLADE PROPERTIES REQUIRED 
Must precede 10 = 3,4,5,13 

10 on first card only, col 1,2 blank on all succeeding cards 
2 cards per station (order 1,2, 1,2...) 

20 stations max 
I END (if used) on last card 1 
Definitions consistent with TN D-7818 


Word 

Card 1 


Card 2 

1 

X - sta (ascending sequence) 

EOP - EI y , 

(El out of chord plane) 

2 

M - mass/unit length 

EIP - EI Z , 

(El for bending in chord 
plane) 

3 

E - e 

GJ 

then ^ is set to 0) 

4 

SEA - e A 

EA - (if 0 

5 

Kml - k 

m l 

Km2 - kj 
m 9 

EB1 - EB-j* 

6 

EB2 - EB 2 * 


7 

KA - K A 1 2 3 4 5 6 

EC - EC-j 


8 

THP - O' built in pitch - rad/ 
unit length 

ECS - EC-j * 


10 = 2 

BLADE DATA OPTIONAL (Default to 0) 



Word 


1 NB - no of blades 4 max (Default to 1 if no hub DOF 

(Default to 2 if hub DOF included 

2 THO - 0 angle at x(l) - radians 

3 BPC - 3 pc - pre-cone - radians 

4 GV - blade damping, 1-P appropriate units, viscous 

5 GW - blade damping, 0-P appropriate units, viscous 

6 GP - blade damping, torsion appropriate units, viscous 
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10 = 3 MODES IN-PLANE 


Max 3 modes 


(At least 

10 = 4 MODES OUT-OF-PLANE one of 10 = Max 5 modes 

3 9 4 9 5 reqd J 

10 = 5 MODES TORSION ' Max 3 modes 


Each mode has one set of input - second derivative at each station 
followed by the first derivative at station 1 (slope and deflection 
are obtained by integration and normalized to unit deflection at tip) 

Input - 8 elements per card - as many cards as necessary (3 max), 
all functions start on new card 


10 on first ( )" card - all other col 1,2 blank 
IEND (if used) on 1st ( )" card of last mode 


Order of input: 

1st mode: ( )" ( )" ( )" . . . . 

X 1 x 2 3 


( )\ 


new 

card ( )' 

X 1 

word 

1 only, slope at station 1 

new 

card ( )x-| ; 

word 

1 only, deflection at stati 

i 

1 

! next mode ( )" 

( )\ 

/ • • • • 

new 

card 1 

) 

( 2 



etc 


IOJ 

= 6 FREQUENCIES 

REQUIRED 

Word 



j 1 

0MEG - 

Q - rotor speed, rad/sec 


(normally = 0) 
(normally = 0) 


0MF - odj. - forcing frequency, rad/sec 
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10 = 7 

HUB 

DATA, 

_X 

OPTIONAL 

10 = 8 

HUB 

DATA, 

_Y 

OPTIONAL 

10 = 9 

HUB 

DATA, 

Z 

OPTIONAL 


Impedance in each direction may be represented as spring- 
frequency top. Data omitted implies infinite impedance. 

is input - at least two blades required. 


Word 


x 

HM y 
z 


Mass 


x 

HC y 
z 

X 

HK y 


(1) 
HF (2) 
(3) 


Damping Coeff 


Spring Rate 


Force - multiplied by sin Wpt (or by 


mass-damper at 
If any hub data 


1 if to f = 0) 
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10=13 APPLIED FORCES, BLADES OPTIONAL 


Load may be applied at any one station, but in three directions. Ampli- 
tudes are multiplied by sino^t (or by 1 if = 0). Forces may be 

applied to one or all blades. w f t always refers to blade 1, however, 

producing "umbrella mode" forcing. (See 10 = 7, 8, 9 for hub forcing). 


Word 


1 

NXF 

Station index number (see 10 = 1) 

2 

AFY 

Amplitude in y direction 

3 

AFZ 

z 

4 

AFP 

<f> 

5 

NBF 

Blade number to which force is applied - 0 applies forces 
to all blades simultaneously. If >NB, NBF is set to 0. 

6 

PER 

Period as fraction of 360° (1 - cos) force is applied 
from ip = 0 to = PER*2. OMF (10 = 6) is ignored. 
Integration interval must be selected with core (10 = 18). 


Note: If in-plane hub degrees of freedom are used (10 = 7 or 8) AFY or 

NBF must = 0. 
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10 = 17 SPECIAL CONTROLS - NONLIN, FLOQUET OPTIONAL (Default to 

nonlinear, no 
floquet) 

FLOQUET OPTION: Produces Floquet transition matrix using force cycle (w*) 

}) T - 

unless co f = 0 then rotor cycle is used. Note that if in-plane hub D-O-F 

are used equation contains terms periodic in Ot. If a force is applied 
then the boundary conditions for a (linear) periodic solution are 
determined and solution is executed for number of cycles specified in 
10 = 18. This overrides any other initial condi tion(s). 

A maximum at 15 degrees of freedom are allowed for this option (30 
variables including velocities). 


Word 


1 

2 


NLIN = 0 

= 1 
= 2 
NFLOQ = 1 
= 2 


All nonlinear terms included 
In-plane nonlinear terms only 
Linear terms only 

Floquet option (see discussion just above) 

Same as 1, but steady effects of offsets and twists 
and precone are ignored. 


10 = 18 SOLUTION CONTROLS REQUIRED 


Errors and initial conditions are limited to one variable. 
I Word 


1 CYCLES 

2 HINIT 

3 ERROR 

4 IYE 

5 CIC 

6 IYIC 

7 BERR 


Number of force* cycles for solution to run 
Number of integration intervals per cycle 
Error bound (appropriate units), see IYE 
Index of variables tested for ERROR** 

Initial condition (appropriate units), see IYIC 
Index of variable for initial condition 
Upper limit (abs) of variable (IYE) which stops run. 
If = 0 no limit 


* Force cycle is used unless = 0 (10 = 06), then rotor cycle is used. 
** See section on variable numbers following. 


78 



10 = 21 SPECIAL 10 CANCEL OPTIONAL 


For cases after the first, 10' s previously used may be cancelled. When 
this option is used all coefficients are recalculated and IC2 is set to 
1 (see HEADING CARD) to insure data printout. There is no necessity to 
cancel when data is replaced. 


Word 

1-8 IO's to be cancelled (0's ignored) 
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VARIABLE NUMBERS 


In 1018 the variables are referred to by numbers. These numbers are 
as follows: 

I_ Variable 

1 x H 

2 x H 

3 y H 

4 y H 

5 5 H 

6 Z H 


11 

12 

13 


^ Blade! 1=9+2 NM( IB-1 ) 

y l 

^ NM = no. of modes 

last y IB = blade number 

z i 

last z 

l_ast_^ 

y. Blade 2 


y l 

etc. 
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ERROR MESSAGES 


Certain errors terminate the run. Others are warnings with correction as 
indicated below. All error numbers refer to a Fortran statement number 
in vicinity of error. (All are in INPU except for the 5000 series which 
occur in SOL). 


NUMBER 


REASON 


TERMINATE NUMBER REASON TERMINATE 


10 

Inactive 10 

Yes 

510 

1013, NYF < 0 CR 

Yes 

11 

II 

Yes 


>NX 


14 

II 

Yes 

511 

1013, All forces 0 

Yes 

15 

It 

Yes 

512 

1013, NB <NBF < 0 

No, 

16 

II 

Yes 


Sets NBM to 

NBF* 

19 

11 

Yes 


6 


20 

I! 

Yes 




200 

Invalid 10 

Yes 




202 

More than one input 

No, 10* 

1100 

1018, Error < 0 

Yes 


of same 10, last one 


1105 

1018, IYIC <0 

Yes 


used 


1106 

1018, IYIC > NDIM 

Yes 

203 

1021, Attempt to cancel 

Yes 

1107 

1018, IYE < 0 

Yes 


invalid I<j> 


1108 

1018, IYE > NDIM 

Yes 

215 

101, Stations out of seq 

Yes 




216 

101, Too many stations 

Yes 




262 

103, Too many Y modes 

Yes 




264 

104, Too many Z modes 

Yes 




266 

105, Too many P modes 

Yes 





500 

No 10 = 1 

Yes 

5010 

Too many D-O-F 

Yes 

501 

No 10 = 3,4 or 5 

Yes 


for Floquet 


502 

No 10 = 6 

Yes 

5030 

IHLF = 11 

Yes 

506 102 

NB > 4, set to 4 

No, NB* 

5031 

IHLF = 12 

Yes 

507 102 

NB < 1 , set to 1 or 
2 (2 if HUB DOF) 

No, 1* 

5032 

IHLF = 13 

Yes 

509 

10 = 18 Missing 

Yes 




510 

In-plane hub with 
AFY’0R*NBF-NE-0 

No, NBF* 



■■ l-iv' : 

r This quantity is printed with warning. 
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USERS GUIDE 


■- 




ROTSI ROTS I ROTS! . ' ROT SI 

- - .• - .ROTOR SYSTEM IDEM — INCOMPLETE MODEL 

********************************* ************^***«****^ *********** 


INPUT ■ 


COL 



— Cl) — HEADING 1— IC1- .EQ 0— FIRST OR- NORMAL -RUN ALL— INPUT— -- 

. • •'-■'■■ 1 REPLACE MOOES - INPUT 3,4,5 

2 ADD MODES - INPUT 4,5 


8 NEW 0? CODE ONLY - INPUT 5 

9 END CE RUN - LAST CARD OF RUN 


2 IC2 .EQ.1 PRINTS ORTHO CHECKS • 

2 AND NORMALIZES MODES 

NOTE — MODES ARE REPLACED 

: AFTER INPUT 


-3— IC3-.NE.0 — PRINTS - EOS- FOR - M A S S - I DENT— — 

4 IC4‘ .NE.O RESTGRES INPUT MOOES, IF ICI.E0.8 
5-80 ARBITRARY HEADING HEAD! 151 


< 2 ) 


MASS DATA- ONE CARD PER 3LADE STATION . 20 MAX 

-1-10 — XH) ST AT ION 

- 11 * * C SEE NOTE) WM 

12-20 M - LUMPED MASS 

— — 21 *-<SEE NOTE) WE- — — ------- -■■ 

22-30 E - CG OFFSET FROM SA WHEN CG FORWARD 
31 * ( SEE NOTE) *‘T 

— 32-40 -TH-- PITCH ANGLE — .ft AO-.— — 

41 * t SEE NOTE) WK 

42-50 KM RADIUS OF GYRATION IN TOR SIGN 


* 1ST COL OF EACH WORD CONTAINS WEIGHTING FACTOR 

FROM 1-9 <0=1) HIGHER VALUE INDICATES GREATER CONFIDENCE 
— SE E- I01 — =- 3 — WD1 


END WITH BLANK CARD 


(3) CONTROL CARD - MODES 

-1-10 — CAL V • - MULT I PLIES I-P MODE- DEFL— 0=1)- 

11-20 C4LW MULTIPLIES C-? MODE DEFL <0=1> 

21-30 CALP MULTIPLIES TOR MODE DEFL (0=1) 

— - — 31-40 THO — ROOT- PITCH ANGLE— RAD — — 

ADDS TO TH - (TH NOT CHANGED ) 
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14} MODES “ STATIONS CORRESPOND TO MASS DATA 


EACH MODE ’ 1-10 FREQ NATURAL , RAC/SEC 

11-20 OH EG ROTATIONAL, RAO/SEC 

— : v 2 1-30 — IF.. . N E . -O-TEMR OR AR ILY-R EP LACE S-C A L V 

: 1 3 1-40 IF .NE. 0 TEMPORARILY REPLACES CALW 
41-50 IF .NE. 0 TEMPORARILY REPLACES CALP'. 


NEXT CDS V I-P DISPLACEMENTS, 8F10. UP TO 3 CARDS 

NEXT CDS ■ W 0— P START ON NEW CD 

NEXT- CDS P— TOR — — . , ~ 

FOLLOW BY NEXT MODE - 8 MODES MAX AT ONE OMEG 

— — -1 6 -MODES -MAX AT- ALL- OMEG - -: -—— - — 

*** 30 EQS MAX {.NOT INCL INVARIANCES} *** . 

■ E ND-W I TH-B L ANK-CA RD - ' V'vV : . ; — V 


(5) OPERATION CODES COL 1,2 101,102 

- — co L-i — rc i ; ■ ' ■ ■ ■ ■ —— 


-1 — — MOD I FY-MODES -WI-TH -R AN DQM— ERRORS— —--MODES— REPLACED 

WD1 PERCENT RANDOM + OR - RECTANGULAR DIST 

WD2— PERC ENT- BI AS—-— : — — — 

WD3 INTEGER SEED TO START RANDOM SEQUENCE 

***— FOLLOW -BY -NEXT—-CPERAT ION-CARD- { 5) ■*** —L .... - 

2 SOLVE FOR MINIMUM MODAL CHANGES - MASS MATRIX UNCHANGED 


ALL MODES MUST BE AT SAME OMEGA - 8 MAX 

FIRST MODE UNCHANGED, LAST MODE WILL CHANGE MOST 

— — M IN I MU K-S U M P E RCEN T- CH AN GES -U S ED- — — — — — 

WEIGHTING FACTORS NOT USED IN THIS OPTION 

-WD1 . EQ.O — NC-L IMI T-ON -CHANGES- — - ■ ' ' S- ■ V .V 

WDl.EQ.l LIMIT CHANGES - SCALE OPTION 
WD2-3 MAX PCT CHANGE ALLOWED IN EACH MODE, 

— — .' CHANGES- ARE SCAL ED -SO— MAX-CHANGE- , LE-,. -MAX 1-MUM— 

0 INDICATES NO LIMIT. 

-KD1 . EQ, 2 - LIMIT CHANGES - TRUNCATE -OPT ION — 

WD2-8 SAME AS FOR SCALE OPTION EXCEPT THAT ONLY 

CHANGES WHICH EX CEDE LIMITS ARE TRUNCATED.- 
OT.H ER -CHANGE S - A S E-NOT-MO DIF-IE D — — 
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- 3 INCOMP MODEL MASS CHANGES - — — — — — 

wDI.EQ.l WEIGHTING FACTORS ALL SET TO l (TEMPI 
- — _ __ W0I.EQ.2~— STAS W IT H - INVAT I ANT PAR AM. READ-51 A) 

THE FOLLOWING CCNTROLS CAUSE THE CORRESPONDING 
— 1 —PROPERTIES TO REMAIN I NV AR I ANT- IF-.N E . 0.— — — 

COL 20 TOTAL MASS M 

30 — R ADIAL CG- M*X~ — - — — — 

AO CHQRDWISE CG M*E ' 

50 FLAPPING MOM OF INERT M*X**2. - .* , ; . 

- — — - 60 - FEATHERING MOM OF INERT M*KM**2 — — — 


-COL- 2 — I 02- — : ; — — — — - — 

0 ABOVE. OPERATIONS DO NOT DISTURB ORIGINAL DATA 


1 ABOVE OPERATIONS REPLACE ORIGINAL DATA IN PREP ERAT ION 
FOR SEQUENTIAL OPERATIONS 


( 5A) USED ONLY FOR INVAR STAS. SEE 3, ABOVE, WDI.= 2 ' ’ .1 . ' 


C0L1 = NO CF STATIONS (8 MAX) 
WD1.WD2,... STATION NUMBERS, NO ZEROES 


NEXT HEADING CARD- %■)*}. \ -Vi' ‘ ’ ' 

*************************************************************: 
************************ ***************?.*************¥* ******: 


:***♦ 
* * ** 


4 4 



o o 


APPENDIX C 


PROGRAM LISTINGS 


c 


c 


c 

c 

c 

c 

c 


V22 


V22 


V 22 


REAL M,KM1,KM2,KA 
LOGICAL LY 

COMMON FOR INPUT 

C OMMON/I NO AT /X (2 03 ♦ M (20 1 1 EC 20 J ,S EA ( 20 > , KMH 20 ) , KM2< 20),KA< 201, 

1 THP (2 01 ,E0P(2G> ,GJ(2Q) ,EA<20),EB1< 201, EB2( 20), ECSi 20 5 ,EIP< 20) , 

2 TH0,8PC»YPP 12 0,3) , YP (20 ,3 ) , Z P P( 20 , 5 ) * ZP i 20, 5 > , PPP ( 20, 3 > ,PP < 20 , 3) 

3 OMEGtOMF,£C(20 J ,NY ,NZ ,NP, NM, GMEGS, GMFS, l DIM , NMAX , NL IN 
4 , NB * H MX »H MY , HMZ YHC X » HC Y , HCZ , HKX » HK Y , HKZ, NX , NFL OQ 

5 ,HIN£T, ERROR, I YE , Cl C , I Y I C , 8 ERR »CYCLES , NXF, AFY, AFZ, AFP,N8F 

6 ,R ,G V ,G W ,G P ,HE <3 ) , PE R 

COMMON COEFFICIENT MATRICES 

COMMON/COEF/COK 11 ,111 ,DCGH 11, 11),C0D( 11,11), CCDDI 11, 11), 

1 com ai) ,Dcom , 11 1 ,f< id, dfud ,fnl< in, coirc 11 , 12 ), 

2 CODR (Li , 1 1 ) ,C OR ( 1 1 , 1 1 1 , FR ( 1 1 J « R IGC< lit 12), 8F< li ) 

3 ,61 N (3 ,11 ) , BD AM {3 ,11) , BS PR < 3, 11 ) , CO IH< 11, 3) , CO 0H< 11, 3) ,BIR I < 3,11 
4,61 R I D <3 ,11! fBI RIO (3 ,11) , BIR XOH< 3, 3 )♦ HF( 3), TM< 3, 3 ) , B IR I XH< 3, 3 ) 

5 ,HC<3,3) ,HK (3 ,3 ) 

COMMON FOR HEADING, CCMROL DATA 

COMMON /HED/CCi, IC2 ,IC3 , l C4 , H 6AD< 19 ), IP AGE, IN PUT! 20 ) , I END,L INE,IC5 
COMMON DIMENSION CATA 

COMMON/DI M/NINPUT,NST A, NY MODE, NZ MODE , N PMGOE, NMO DE, NM 1, ND IM, NBLttDE 
COMMON BASIC CERlVEO DATA 

COMMON/DER/TH<20 ) , EV (20 ) , EW < 20 ) , E P <20 ) ,Y< 20, 3.1 , li 20, 5 ),P ( 20, 3) 
CGMMON VARIABLES AND SOLUTION CONTROLS 
C OMMON/ VAR /Y VA R ( 98),DERY(98) ,PRMT ( 6) ,LY( 981 
DI PE NS I ON AL I Z AT ION 


00000010 

00000020 

00000030 

00000040 

00000050 

00000060 

00000070 

,00000080 

00000090 

oooooico 
00000110 
GOOOOl 20 
00000130 
00000140 
000001 50 
000001 60 
>00000170 
000001 80 
00000190 
000002 CO 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
000002 80 


Hi NPUT =* 20 
NSTA -■ 20 
NY MODE * 3 
NZMODE = 5 
NPMODE * 3 

NM0DE=1 l » 

NMi = NMOOEH 
NBLADE * 4 
NDIM 34 98 
DO 10 1 =1 , NI NPUT 
F 51“l*OE+51 
10 INPUT(U=0 
IC A SE=0 
I £ NO = 0 

20 CALL INPU JICASE) 

LINE = 100 

CALL SOL( PRMT ,YV AR , DERY , IHLF, LY ) 

I F ( IC5. NE* 0) WRITE (9) (F5 1,1 =1,7) 

100 IF (LEND <.€0.3 J CALL EXIT 


GO TO 20 
END 


000003 CO 
00000310 
00000320 
00000330 
00000340 
003003 50 
000003 60 
000003 70 
000003 80 
000003 90 
00000400 
00000410 
00000420 
00000430 
0000044 0 

r \ ' 

00000460 
00000470 
000004 80 
00000490 

f 

00000510 

00000520 
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FUNCTION DINT CDUM.P 9 .OUPPPt.X 9 NX) 
C DUMP IS INTEGRAL OF DUMPP 

REAL DUMP (II ,DUMPP < 1 ) ,X (1 ) 

CALL INT I DUMP ,DUMPP*0 ,X, NX, 1) 
DINT=DUMP(NX) 

• RETURN 
END 


00000010 

00003020 

00000030 

00000040 

00000050 

00000060 

00000070 


FUNCTION DINTi <A,B,Ii , N, X, NA, NX t DUMP, DUMPP I 

REAL A (NA , 1) V B.(NA V 11 ,X(1I , DUMP! I.) ♦ DUMP PI 1) 

DO 10 1=1, NX 

10 DUMPP (I ) = A{ If II ,)*.B4 1 , N) 

CALL INT <DUMP,DUMPP,0 »X,NX,l) 

01 NT I =D UMP ( N X) 

RETURN 

END 


00000010 

00000020 

00000030 

00000040 

00000050 

00000060 

00000070 

00000080 


F UNC TI ON DINT2 ( A , B , II , I 2 , N , NB , X , U A, NX , DUMP, DUMPP ) 
REAL A t N A • 1 1 ,B{NA,NS,1 I ,X Cl I ,CUMP< 1!, DUMPP! 1) 

DO 10 1=1 , NX 

10 DUMPP ( I ) = All ,11) * B(I,I2,N) 

CALL INT I DU MP, DUMPP ,0 , X , NX, II 
D l NT2—DUMP.CN XI 
RE TURN 
END 


00000010 

00000020 

00000030 

00000040 

00000050 

00000060 

00000070 

00000080 


SUBROUTINE ERR IN »I ) 

C I = 0, TERMINATES RUN I NE 0 WARNING OMLY, PRINTS I 

PRINT 10, N 

10 FORMAT! //10X,17H*** ERROR NUMBER ,I5,5H *** 1 

IF ( I * NE « 0 1 GOTO 20 
CALL EXIT 
20 PRINT 30,1 

30 FORMAT (20X,20H*** WARNING ONLY ■«'* ,15//) 

RETURN 

END ' 


00000010 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
00000080 
GOOOOOSO 
000001 00 
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SUBROUTINE ECTIT , YVAR , DERY , LY , I NDI M) 

C NOTE INOIH NOT USED INCLUDED FOR COMP AT AB It ITY ONLY 

C MULTI BLADES , 3 OOF HU B, NON -LIN CORIOLIS FORCES 

DIMENSION YVARaitDERYU) 

LOGICAL IYI1J 
REAL M»KMi,KM2,KA 
REAL DUMP 1 20 > ,0UPPP<20 > ,V0M< 20 1 

REAL VDC20) ,VOP<20) ,VP<20) ,VPP(20),WD( 2G),WDP{ 20 ) , WP < 20 ) , WPP < 20) 
COMMON/I NDAT/X (2 01 »M < 20 ) ,E < 20 ) , S EAC 20) ,<M 1( 20 ) * KM 2< 20),KA< 20), 

1 THP (20) ,E0P(20) ,GJ<20) ,EA(20),EB1< 20 ) , EB2( 20 ) , EC S < 20 ) , E IP ( 20 ) , 

2 THO,BPC ,YPP (20,3) , Y P ( 20 , 3 ) , Z PP( 20 , 5 ) , Z P( 20, 5 ) , PPP { 20, 3 ) ,P P ( 20 ,3) , 

3 OMEG ,OMF,EC(20)»NY,NZ,NP,NN, CMEGS, CM F$, I DI M , NMAX ,NL IN 
4,N8 fHMX ,HMY »HMZ ,HCX,HC Y ,HCZ , HKX , HKY, HKZ, NX tNFLOQ 

5 ,HINIT,£RR0R,IYE,CIC,IYIC,8ERR , CYCLES , NXF , A FY, AFZ , AFP , N8F 

6 ,R ,G V ,G W ,G P*HE (3) , PER 

C OMMON/COE F/ CO I ( II ,11) ,OCGI( 11, 11),C0D< 11, 11), DCODI 11,11), 

1 COdl ail ,0C0(11 ,113 ,F(ll),CFnij,FNU 11),C0IR< 11,12), 

2 CCDRdi ,11) ,C CR( 11 , 1 1 ) , FR ( u ) , R IOC( ii, 12),BF< 11) 

3 : ,81 N (3 ,1 1 ) , BD AM (3,11 3 , BSPR ( 3, 11 ) , CO IH411 , 3) , COOH( 11, 3 ) , BIR I ( 3, i 1 ) 
4, BI-R ID 13 ,11 3 yBI.R 10(3,113 ,.BIR ICH4 3, 3 3, HF( 3), TM{ 3, 3 3, B IR I IH< 3, 3 3 

5 ,HC (3,3) ,H K (3 ,3 ) 

CGMMON/HED/I Cl ,IC2 ,IC3 ,IC4,HEAD( 19 ), IPAGE, IH PUT ( 20 ) , I END,L INE , IC 5 
COMMON/D I M/NINPUT,NST A, NYMODE, NZ MODE, N PMODE, NMO DE, NM 1 , ND IM ,N BLADE 
COMMON/D ER/TH ( 20 I , 6V (2 0 ) , EW ( 20 ) , EP( 20 3 , Y ( 20, 3 ), Z ( 2 0, 5 ), P ( 20, 3 ) 

Z NOTE DP NGT, CO NOT USE CCMMON/VAR/ ******************** 

LOGICAL LHUB 
INTEGER I COL (4 ) , IRGW(4) 

REAL XHD (3 ) , XH (3 3 f XHDO <31 ,FI B( 11,4) 

REAL YBU1) , YDB< 11) ,HU8I ( 3 , 4 ! , HU BC( 3, 4 ), HU B8V ( 3,11 ) tHUBBDC 3, 11 3, 

1 HUBBF <3 ,11 > ,HUBB(3> , S I N8( 4 3 , COS 8< 4 ), PS I (4),RHS( IHf FBUl) , 

2 HI N V(3 ,4) f -Y0-DB41.il > 

LHUB =• FALSE# 

IF (LYU).GR. LY (3 ).OR.LY(5 33 
SOFT “ SIN(OPF*T) 

IFCGMF.EQ.O) SOFT = 1. 

IF (• NOT. LHUB3GG TO 45 
PSI<1) = A MOO (T*0 MEG ,6 * 2B319) 

DPSI=6.28319/FL0AT(NB) 

SI NS il ) = $1 N ( FSl 4 11.1 
C 0 SB ( 1 ) = C O S ( P S I ( 1 ) ) 

DO 10 I 8=2 »N fi 
PSI (I 83 -PSI ( IB-1 H-DPSI 
IF (PS I ( I B) «G E*6# 28319) 

SINB(IB) = SIN(PS1 (IB)) 

10 COSB ( I B) =CQS (PSI (IB)) 

DO 20 1=1,3 
DO 20 J=l ,3 
HUB I (I , J)=TM(I ,J) 

20 HUBCil , J)=HC (I ,J) 

DO 30 I B=1 , NB 

HUB I (1,1) = HUBI U,1)-SINBUB)**2«‘BIRIIH<1,1) 

HUB! (1,2) » HUBI Cl,2)~SINB(ie)*C0SB( IB)*BIRIIH( 1,2) 


LHUB= »T RU E« 


PS I ( I B )= PS I C I BI-6 * 28319 


00000010 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
00000080 
00000090 
000001 00 
00000110 
00000120 
00000130 
00000140 
000001 50 
00000160 
00000170 
00000180 
00000190 
00Q002C0 
00000210 
00000220 
00000230 
00000240 
00000250 
000002 60 
000002 70 
000002 80 
00000290 
000003 CO 
00000310 
00000320 
00000330 
00000340 
000003 50 
00000360 
00000370 
00000380 
000003 90 
000004 CO 
GYOQ 004 10 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
0000048 0 
000004 90 
000005 CO 
00000510 
00000520 
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HUBI (2 ,1) = HUBI <2,1)-SINB(I 6) *COS 81 IBI*BIRI IHC 2, II 
HUB I (1 ,3) = HUBI 4iV3)-SlNB4ie)*BIR II H4 1, 3) 

H UBI (3 f 1 ) = HU 81 (3 , l ) — S I N8 4 1 B I *8 1 R 1 1 H4 3* 1 1 
HUBI (2 #3} = HUBI C2 ,3) —COS B( I B) #8 IR 1 1 HI 2*3] 

HUBI 13*2) -HUBI (3 *2) -COS BUB) *BIRIIH4 3, 2) 

HUBI (2 * 2) -HUBI (2 ,2)-CO$B4 IB) *.*2*BZRI IH<2,*2) 

HUBI 43,3) .» HU81 (3 * 3 ) -B IR IlH 4 3* 3 ) 

HUBC (1 ,1) = H.UBC{l f ll+SINfiiie)*COSBU8l*Br.RIOH(lfil 
HUBC 4 1 *2) - HU8C 41 , 2 ) +S INB4I B ) *S INB4 IS )*BIR1DH4 1* 2 b 
H U8C (2*1) =HU BC 42 ,1.) + COS 8< IB) *C0S B{ IB)*8IRIDH{ 2* 1 ) 

H UBC (1 ,3) = HUBC (1 ,3) +/S IN84 I 8) *8 IR IOHl 1, 3 ) 

HUBC (3*1) = HUBC 4 3 , 1 ) + COS B 4 1 B) *BXR IO.HC 3, 1 ] 

H UBC ( 2*3) -HUBC (2 *3 1 +COS 84 18) *8IR IOH4 2, 3) 

HUBC (3 *2) =HUBC 4 3 ,2 ) +S I NB{ I B) *'fi IR IDHC 3, 2 ) 

HUBC 42 *2) -HUBC 42 ,2) + COS BC IB) *S!NB4 IB)*BIR IDH4 2* 2) 

30 H UBC 43 *3) = HUBC (3 ,3 ) + BIR I DH (2 *31 
XHO 41 ) -YVAR4 II 
XH (I)=YVAR<2) 

XHD 42 ) =YVAR( 3) 

XH 42 ) = YVAR (4) 

XHD 43)=YVAR(5) 

XH <3)=YVAR46) 

DO 40 1=1*3 
40 RHSCI l =HF 41) *SOFT 

CALL MXV4RHS *HUBC ,XHD, 3*3 » 3* 1 ) 

CALL MXV4RHS ,HK ,XH ,3*3,3, 1) 

45 DO 2 00 I B-l , NB 
I =1 Q+ NM* 4 1 B-l I *2 
DO 50 J=1 ,NM 
1 = 1+1 

YO B 4 J >) - Y V A-R4 1 ) 

1=1 + 1 

50 YB 4 J) =YVAR (I ) 

IF {* NQT*LHUB ) GO T062 
DO 60 0=1 ,NM 

H UB B V ( 1 , J ) = S I N B ( I B ) *-BI RI041, J) +C OS BC IB I* BD AM < 1 , J ) 

H UBB V <2 ,J)=CCSB4 IB) *BI RID I 2, J ) +S INB4 IB )*8DAM 4 2, J ) 
■HUB 8 V43 ,J) =8 IR ID 43 , J) + SCAM4 3,J ) 

HUBBD41 , J) =S INBC 1B)*BIRI0C1, JJ 
H UBB D 4 2 , J1 =C CSB4 18) *BI RI042, J) 

HU8BD(3,J)=BIRI0 43 ,J) 

HUBBF41 , J) =$ IN84 IB) *BIRI4 l, J) 

HVBBF (2 , J) =C CSB4 IB) *BlRi< 2, J) 

60 HUBBF43 ,J)=BIRI 43, J) 

62 DO 65 l=l*NM 
65 F NL4 1 )=0 

NCN LINEAR TERRS SUM MODES 

I F 4NLI N*E Q»2 ) GO TO 160 
I F ( NY#£Q* 0 ) GO TC 160 
CALL SUMOOE 4 VD, YDB ♦ Y,NST A, NX , NY ) 

CALL SUMOOE (VCP,YD8,YP » NST A, NX ,NY ) 

CALL SUMODE (VPP,YB,YPP , NST A, NX, NY) 

CALL SUMOOE 4VP,VB,YP , NST A, NX , NY ) 

DG 70 1=1 ,NX 
WD 4 I )=0 


00000530 
00000540 
00000550 
00000560 
00000570 
00000580 
00000590 
00000 600 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
03000670 
000006 80 
00000650 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00000750 
00 000 8 CO 
00000810 
00000820 
00000830 
00000840 
00000850 
00000860 
00000870 
00000880 
00000850 
000009 CO 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
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wp m=o 

WDPU)=0 
70 WPP(I)=0 

IF(NZ*EQ.OJ GO TO 85 

00 80 1=1 « NZ 

DUMP (I} = Y8(NY+I) 

80 OUMPP 41 ) = YD B< NY+I ) 

CALL SUMODE (WO ,DUHPP,Z ,NSTA,NX,NZI 
CALL SUMODE ( WDP , OUMPP ,ZP »NSTA*NX,NZ) 

CALL SUMODE (WPP»DUMP , ZPP,NST A, NX , NZ ) * 

> CALL SUMODE (WP *DUMP ,ZP * NST A, NX, NZ) 

85 DO 90 I =1 , NX 

90 DUMPP(I) = VDP<I)*VPmH*CPm*WP< 1) 

CALL INT(DUMP,DUMPP ,0 ,X ,NX , 1 I 
DO 95 1=1, NX 
95 DUMPP(U = M(I )*VDM) 

CALL I NT 4 VD M* DUMP P ,0 ,X » NX,2 ) 

DO 100 1 = 1, NX 

100 DUMPPUMMU r*<DUMPm~VD( I)*VPM) l+VPPC n*VDM( II 
• CALL l NIC DUMP, DU MPP ,0, X ,NX , 2 I 
CALL I NT (DUMPP, DUMP, 0,X, NX, 2) 

DO 120 J=1 *NY 
DO 110* 1=1, NX 

110 DUMP ( II = YM t J) *D.UMPP ( 1 1 
120 FNL(U) =01 NT ( OUMPP, DUMP, X,NX J *2.*GMEG 
IF ( NZ* E Q® 0 1 GO TC 150 
I F ( NL I N* E Q# 1 1 GO TO 150 
DO 130 1=1, NX 

130 DUMPP (I I = VtPP (I ) *VDM ( II -Ml I )*VCU)*WP<tft. 

CALL I NT C DUM P, DUMPP ,0 , X ,NX , 2 V 
CALL I NT (DUMPP, DUMP ,0 ,X ,NX , 2 ) 

DO 140 J=1,NZ 
00 135 1=1, NX 

135 DUMPm=Z<l , J)*DUMPP< I) 

140 F NL( NY* J) = D I NT C 0 UMP P , DU MP , X , NX } *2 . *OME G 

150 CONTINUE 

160 DO 170 1 = 1, NM 

FBU)=FR( D + FNLC I) 

170 F I B ( I ,1B)=FBU) 

C BLADE FCRCING 

IF (INPUT (13) .EC* 01 GO TO 190 
IFINBF. NE* 0* AND. IB* N£« NBF I GO TO 190 
DO 180 I =L,NM 
I F i BF ( I ) • E C« 0) GC TO 180 
IF ( PER# NE» 0) GO TO 175 
F B III = FBU HBF (I>*SGFT 
GO TO 180 

175 CONST=PSI ( I BI/PER 

IF (CONST* GE* 6* 28319 1 GC TO 180 
FB (I I =FB ( 1 1 *BF (I ) * (1*0-CCS ( CCNST ) ) 

180 FIBCI ,IB) = FBI!) 

190 IFUNOT.LHUB) GO TO 200 

CALL MX V( RHS ,HUB BV , YOB ,3 , NM, 3*1) 

CALL MXV4RHS ,HUBBD,YB ,3»NM,3,1) 

CALL MX VC RHS ,HUBBF ,FB ,3,NM, 3,11 


00001080 
00001090 
00 001 100 
00001110 
00001120 
00001130 
00001140 
00001150 
00001160 
000011 70 
00001180 
00001190 
000012 00 
00001210 
00001220 
00001230 
00001240 
000012 50 
00001260 
000012 70 
000012 80 
00001290 
000013 00 
00001310 
00001320 
00001330 
00001340 
0 00013 50 
000013 60 
000013 70 
000013 80 
00001350 
00001400 
00001410 
00001420 
00001430 
00001440 
00001450 
00001460 
00001470 
000014 80 
00001490 
00001500 
00001510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
00001580 
000015 50 
00 001 6 CO 
00001610 
00001620 
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200 CONTINUE 

I F { • NOT. LHU8 ) GO TO 300 

CALL INVRS(HUBI f 3,HINV,HUBC, IRCW, I COL, 3* 41 
CALL MXVCXHDDtHINV »RHS ,3,3,3,01 

C NOTE THAT ALL 3 HUB MOTIONS COMPUTED, THEY ARE IGNORED IF NOT 

IFCLYUn 

1DERYC1) = XHDDI1J 

IF(LY(2J* i 

IOERY (2 ) * YVARC1 I 
IF(LY(3)> • 

1DERYI3) = XHD0I2) . 

IF (LY(4J ) 

IDERYI4) = YVARI3 ) 

I F (LY ( 5 ) ) 

1 DERY (5) «■ XHCD (3 I 
IFILYI61I 

1DERY16) = YVAR (5 ) 

C BLADES 

300 00 360 IB=L»NB 
I =10+ NM* ( I B— 1 1 *2 
DO 310 0=1 ,NM 
1=1 + 1 

YDBCJ)=YVAR(I) 

1 = 1+1 

310 YB ( JJ =Y VAR ( I ) 

DO 320 1=1, NM 
32 0 RHSm=FIB U ,IB) 

CALL MXV( RHS tCODR , YDS, NM, NIVNNCDE, II 
CALL MXV ( RHS *CCR , YB , NM, NM» NMCDE, 1) 

IF (.NOT. LHUB ) GO TO 350 
DUMP (1) = Sl NB ( I B) *DERY<1) 

DUMP €21 =CGSB (X 6) *OERY 1 3 1 
DUMP (31 =DER Y (5 ) 

CALL MXV-( RHS tCCI H, DUMP ,NM, 3, NNCOE, 11 
D UMP ( 1) =COSB (I Bi *XHD<1> 

DUMP (21 = SI NB (I B) *XHD(2 J 
DUMP (3) =XHD(3) 

CALLMXV (RHS »CGDH, DUMP ,NM, 3, NKCDE, 1) 

350 /:ALLMXV < YDD8,RI0C»RH$,NM,NM,NMGDE,0) 

I =10+ NM* ( I B-i> *2 
DO 360 J=1,NM 
1=1 + 1 

DERY (II =YD0B ( J) 

1=1 + 1 

360 DERY ( II =Y VAR ( I — 1 1 
RETURN 
END 


00001630 
00001640 
00001650 
00001660 
00001670 
00001680 
00001650 
00001700 
00001 710 
00001720 
00001730 
00001740 
00001750 
00001760 
00 001 770 
00001780 
00001790 
00001800 
00001810 
00001820 
00001830 
00001840 
00001850 
00001860 
00001870 
00001880 
00001850 
00001900 
00001910 
00001920 
00001930 
00001940 
00001950 
00001 960 
00001970 
00001980 
00001990 
00002000 
00002010 
00002020 
00002030 
00002040 
00002050 
0 0002 060 
00002 070 
00002080 
00002 090 
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SUBROUTINE HEADI IS OOOOOOIO 

C0MM0N/HED/IC1,IC2 , IC3 , IC4,HEA0( 19 J, IP AGE, IMPU T I 20 ) , IENO ,L INE , IC5 00000020 
I PAGE* I PAGE* 1 00000030 

PRINT 100 , IC1 »I C2» IC3 » I C4 , IC5, HEAD, I PAGE, ( I, 1=1, 20 ), INPUT 00000040 

100 FORMAT (1H1 ,9X ,13HV22 11/12/76 /10X.15H — — — 00000050 

1 . 1 9 <5H ****»/ 8X,5I2, 14X, 19A4, 3X, 4HPAGE, 15/ 00000060 

2 10X,10(5H* ***) ,20I3/50X, lOHINPUT = ,20131 00000070 

RETURN 00000080 

END 00000090 
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SUBROUTINE I NPU (ICASE) 


V— 22 


REAL M f KMi »KM2 »KA 

LOGICAL LY 

LOGICAL LCALC 

INTEGER I ROW (12) ,ICGl(12) 

C COMMON fOR INPUT 

COMMON/I NDAT/X<20) ,M(20) , El 20 ) ,S EA( 201 »KM 1(20) , KM2( 2Ol,KA<20) , 

1 TH P ( 2 0) ,E0P(20) ,GJ(20) ,EA<20),EBIC20), EB2(2Q),ECS( 201, E IP (20), 

2 THO ,B PC , YPP (20,3) ♦YP(20,3) ,Z PP( 20,5 ),ZP( 20, 5 ),PPPI 20,3),PP( 20,3) , 

3 QMEG » OME ,£C ( 20 ) ,NY, NZ , NP, NN, GMEGS , OM FS » I DIM, NMAX , NL IN 
4,NB ,HMX , H M Y ,HMZ ,HCX , HCY » HCZ ,FKX , HKY, HKZ, NX , NFLOQ 

5 ,HINIT, ERROR, I YE ,CIC , IY I C, BERR , CYCLES , NXF, AFY, AFZ, AFP ,NBF 

6 ,R,GV,G N,GP,HE (3), PER 

C COMMON COEFFICIENT MATRICES 

COMMON/COE F/ CO I ( 11, U) , CCO 1(11,11) , COD< II, ID, DCOD< 11, ID, 

1 com ,id ,ocoai ,id ,f<id,df( id,fnu id,co iri u, 12), 

2 CODR (1 1 ,111 ,CCR(11, 1D,FRMD,RI0C( II, 12>,8F( 11) 

3 ,81 N(3 ,111 ,BDAM(3,MI , BSPR ( 3, 11 j, CO IH( lit 3),C0DH( 11, 3 ) , BIR I ( 3, ID 
4 ,61 RI 043 ,11) ,BIRI0(3,11) , BIR ID HI 3, 3 ), HFC 3), TM ( 3, 3 ) ,B IR I IHf 3, 3 ) 

5 ,'HC (3 ,3) ,HK (3 ,3 ) 

C COMMON FCR HEADING, CONTROL CATA 

COMMON/HED/I Cl ,1 C2 ,IC3 ,IC4,HEADf 19 ),' IP AGE, INPUT (20), IEND,L INE , IC 5 
C COMMON DIMENSION CATA 

COMMON/DI M/NI NPU T,N$T A, NYMODE, NZ MODE, NPMODE, NMODE, NMl/ND IM,N BLADE 
C COMMON BASIC DERIVED DATA 

CGMMON/DER/TH ( 20 ) , EV (20 ) , EW I 20 ) , EP I 20) ,Y< 20,31 ,Z< 20,5 J,P( 20, 3) 

C COMMON VARIABLES AND SOLUTION,- CONTROLS 

C OMMON/VAR/ Y VAR { 98 ) ,DE RY (9 8 I , PRMT(6),LY( 981 
REAL DUM( 8 ) , DUMP PI 201 , CUMP(20) ,WORK( 11 , 121 ,DUMPPP( 201 
REAL DELE (20 ) , EONE (20 ) , CELK ( 20 ) , KM( 20) 

REAL Ml (20 ,1.0) ,M 1 1 ( 20 ,9 ) ,Y I ( 20 , 3, 10 > , Y IK 20, 3 ♦ 9 ) , Z I ( 20, 5* 9 ) , 

1 ZM (20, 5, 8), PI (20 , 3, 8) ,PII (20, 3, 7),S U 20,5,5) 

REAL DYYI (3 ,3 ,10 ) ,DYY 1 1(3 ,3,9) ,DYZ IT i 3 , 5, 8 ), 0YP II( 3, 3, 7 ) , 

1 DYSI (3 ,5,4) fDYM I (3 ,10 ) ,DYMI 1(3,9) ,DZY 1( 5, 3, 10 I, DZY 1 1 ( 5, 3, 9) , 

2 0 ZZI I (5,5 ,8) , DZ PI <5 , 3 ,8 ) , DZ PI I ( 5, 3, 7 ) , DZM I( 5, 1 0 ) , DZM 1 1 < 5, 9) , 

3 DPYI 13 ,3,10), DPYI I (3,3,9 ) , D PZ I( 3, 5, 9) , DPI til 3, 5, 8), DP PI 1.3, 3, 8) , 
4DPPII (3,3 ,7) ,OPS 1 13,3,1) ,DPMI<3,10 ),OPMIt( 3, 9) , DYF( 3, 5, 6 ), 

5 DZF ( 5 ,5 ,6 ) , DPF( 3 ,5 ,3 ) 

6 ,A LI I (20 ) , DYAL II (31 , DZALI I (5 1, OPAL 11(3 ) 

REAL YZPI (20) ,DYD<3,3) , DZ D (5,5), DP Di 3,31 
REAL D (2243 ) 

EQUI VALENCE (Dll ) , DYYI (1) ) , ( D( 911 , CYY M( 1 1), ( D( 172),DYZIIf 11 ), 

1 (0(292 ) ,DYPI I ( 1) ) , (0(355 ) ,CYSI (1)1,(0(415 ),DYMI( ID, 

) ,OYMI 1(1) ), (0(472 1 , DZY I 
) fDZZil(l) ),<D (957 ) , DZ P I 


2 

3 

4 

5 

6 

7 

8 


( D( 445 
(D ( 757 
(0(1182) 


(11), (0(622 ) , DZ Y I H 1 ) ) * 
(!)),( D( 1077 ) , DZ P 11(1 ) ) , 


,D ZMI (1)) , (D (1232 ) , DZM I !(!)),( D( 12771, DPYI CD), 


(0(1367) ,DPYI I ( 1) ) , ( C (144 8) ,CPZI 
(D(1703) ,DPPI 


(0(18471 ,OPMI 


(1)1 ,(D (1775) tCPPIHl )),(D( 18 38 ) , DP S I 
(1) ) ,(0(1877) , DPMI 1(D), ( 0( 1904), OYF 


( 1 1 ) t ( DC 15 83 ), DP ZI I (1)1, 
( 1 ) 1 , 


(D( 1 994) ,DZF (1)), (0(2144), DPF 


( 11 ), 

(!)),( DC 2189), DYAL IK i)>. 


00000010 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
00000080 
00000050 
000001 CO 
00000110 
00000120 
00000130 
00000140 
000001 50 
000001 60 
00000170 
000001 80 
000001 90 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000280 
00000250 
00000300 
00000310 
00000320 
00000330 
00000340 
000003 50 
00000360 
00000370 
000003 80 
00000390 
000004 CO 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000450 
00000500 
00000510 
00000520 
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9 <0(21921 tOZ ALII ID) ,<C (2197 )* OPAL M 111 ) 

EQUIVALENCE (0(2 201) ,DYD< 1 ) ) * ( D( 2210 1* DZD< 1) ) , < 0( 22351 , OPD ( 1 II 
IN IT I AL IZAT I CN 
HEADING 

50 I F ( 1 E NO * E Q . 2 ! GO TO 52 

READ 9000 * IC 1 * IC2f IC3 * IC4* I C 5, HEAD 
9000 FORMAT (5 1 1 * 18 A4 » A3 1 

IF ( IC1* NE. 0) CALL EXIT 
52 ICASE = ICASE+1 
I PAGE = 0 

C INPUTCI) = 0* NEVER USED = 1, USED = 2* MODIFIED OR NEW 

DO 100 1 = 1 »N INPUT 
IF (I NPUT! 11 .EC« 0) GO TO 100 
INPUT (I)' = 1 
100 CONTINUE 

C CLEAR TO CLEAN UP OUTPUT OF INTEGRALS 

DO 90 1=1*2243 
90 D (!) =0* 

I F ( I NPUT (61 • EQ*0 ) OLD OP =1. 

IF (I NPUT (6) * NE.Q) OLDCM = GM EG 
GLOOMS = GLDCM*GLDGM 
IF ( IC5 • EQ. 0) GO TO 201 
I =7 

WRITE (9) I 
GO TO 201 
C 

c 

c 

C GENERAL INPUT 

C 

c 

c 

200 IF (IE NO. NE* 0) GC TO 500 
2 01 RE AD 901 0*10 *DUM * I END 

9010 FORMAT (12 *F8. 0* 6F10 .0 *F9 .0* I D 
IFtId.-NE.21! GO T0202 

CALL HE AD IN 
PRINT 9011 

9011 FORMAT! //20X *28HFQLL0W I NG 10* S ARE CAN CELL ED / ! 

DO 203 J*1 *8 

I =DUM ( J! 

IFCI.EG.O) GC TO 203 
PRINT 9012 ,1 

9012 F OR MAT (30 X * 1 10 ) 

IFU.LT.O.OR.I.GT.NI NPUT) CALL ERR (203,01 
I NPUT ( I ) =0 
203 CONTINUE 

C NOTE INPUT (1 1 SET TO 2 TO INSURE THAT ALL C GEES AR E R E CALCULATE) 
I NPUT <11 =2 
I C2=i 
GO TO 200 

. 2 02 IFUO. GT.NINPUT.CR.IO.lt. 1) CALL ERR(200,0) 

IF (INPUTUOI .ee* 2) CALL ERR <202* 101 
INPUT (1 01 = 2 

GO TO <210,220,230*230,230*270,320,330*340*10* 11*12* 


00000530 
00000540 
00000550 
00000560 
00000570 
00000580 
00000550 
Q00006C0 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00000680 
00000690 
000007 CO 
00000710 
Q0000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00C0Q75O 
000008 CO 
000 JOB 10 
00000320 
00000330 
00000840 
00000850 
00000860 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
000C1 020 
00001030 
00001040 
00001050 
00001060 
00001070 
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10 

11 

12 

14 

15 

16 
19 
2 0 

210 

215 


22 0 


230 
235 
24 0 

902 0 
250 


350,14 ,15 , 16 ,280 ,300 , 19 ,20 1,10 
CALL ERR (10 *0) 

CALL ERR(U,0) 

CALL ERR (12,0) 

CALL ERR <14 ,0) 

CALL ERR (l 5,0) 

CALL ERRU6,0) 

CALL €RRU9,0) 

CALL ERR<20 , 0) 

1.0*1 BLADE PROPERTIES 

1=1 

X(I) * DUM(l) 

MCI) = DUM (2 ) 

Ed) = DUM <3 ) 

SEA (I) = DUM (4) 

KML ( I ) = D UM (5) 

KM2 < I ) = DUM (6) 

KA(I) = DUM (7) 

TH P < 1 1 « D UM < 8 ) 

READ 90 10, 10, DUM 
eOPlIl - DUM 1 1) 

E l PI I I = DUM (2 ) 

G J( I ) = DUM< 3 ) 

EAd) * DUMC4) 

ESI (I ) = DUM <5 ) 

E82 CI I = DUM <6 ) 

EC < I ) = DUM (7) 

EC SC 1 1 = DUM (8) 

R~X(I ) 

I F d END* NE.O) GO TO 500 
READ 9010 ,10, DUM, I END 
IFdO.NE.O) GO TC ZO 2 
IF(DUMd).LT.Xd)) CALL ERR< 215,0) 
I ■* I H 
NX * I 

IF tNX.G T. NSTA) CALL ERR <216,01 
GO TO 215 

10=2 BLADE C AT A * 

NB =DUM ( 1 ) 

TH0-DUMT2 ) 

B PC =DUM 1 3 ) 

GV =OUM (4) 

GW- =DUM < 5 ) 

GP =DUM (6 ) 

GO TO 200 

IC = 3 ,4,5 MODES 

IFdNPUT(l).EG.O) CALL ERR (230,0) 
J = 0 
J * JU 
DC 240 1=1 ,8 
DUMPPd) = DUM d ) 

IF (NX. LE* 8) GO TO 250 
READ 9020, < DUMP P( I) , 1=9 , NX I 
FORMAT (7FI0.0 ,F9.0 ) 

READ 9020, SC 


00001080 
0 C001 090 
000011 CO 
00001110 
00001120 
00001130 
000011 40 
00001150 
00001160 
00001170 
00001180 
00001190 
000012 00 
00001210 
00001220 
000012 30 
000012 40 
000012 50 
00001260 
000012 70 
000012 80 
000012 90 
000013 CO 
00001310 
00001320 
00001330 
00001340 
000013 50 
00001360 
00001370 
000013 80 
000013 90 
00001400 
00001410 
00001420 
00001430 
00001440 
00001450 
00001460 
000014 70 
000014 80 
00001490 
00001 500 
00001510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
000015 80 
00001590 
00001 6C0 
00001610 
00001620 
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C INTEGRATE AND NORMALIZE MOOES 

CALL INT (DURP,DUMPP,SC,X»NX,l) 

CALL I N'T lOUMPPPf CUMPf 0 9X9 NX* 1) 
CONST^DUMPPPINX) 

IF IC ON ST© E C® 0) CCNST*i.O 
DO 260 1*1 ,NX 
IF (10-4) 252,254,256 
252 YPPIIfJJ = DUMPP (I ) / CONST 
YPU ,J> * DUMP (I )/ CONST 
Y < I , Ji =DUMPPP(I I /CONST 
GO TO 260 

254 ZPPU , J) * DLMPP (II /CONST 
ZP.U9JI = DUMP (I I/CONST 
HI , JI=DUMPPF.U) /CONST 
GO TO 260 

256 PPPUt JI * DLNPP (I I/CONST 
PPIIfJJ = DUMP Cl )/ CONST 
P (I , JI*DUMPPPC I ) /CONS T 

260 CONTINUE 

IF ( TEND* NE* 01 GC TO 261 
READ 9010,11 ,DUM , I ENDT 
IF II I • EQ« 0) GC TO 235 

261 IF II 0-41 262,264,266 

262 NY * J 

IF (NY.GT. NYMODE) CALL ERR 1262,0) 

GO TO 267 
264 HZ * J 

IF INZ.GT.NZMGDE) CALL ERR (264,0) 

GO TO 267 
266 NP * J 

IF ( N P » G T. N P N C DE > CALL ERR < 266,01 
2 67 IF { I END. NE* O') GO TO 500 
I END* I ENDT 
10 = M 
GO TO 202 

C IC = 6 FREQUENCIES 

. 270 OMEG * DUMIlV 

OMF = DUM (2) 

GO TO 200 

C 10 = 17 NGN LINEAR CONTROLS 

2 80 NUN = OUMIl ) 

NF LOQ*DUM (2 1 
GO TO 200 


00001630 
00001640 
00001650 
00001660 
00001670 
000016 80 
00001690 
OOOOX7CO 
00001710 
00001720 
00001730 
00001740 
00001750 
00001 760 
000017 70 
00001780 
00001790 
00001 8 CO 
00001810 
00001820 
00001830 
00001840 
00001850 
00001860 
00001870 
000018 80 
00001890 
00001900 
00001910 
00001920 
00001930 
00001 940 
00001950 
00001 960 
00001970 
000019 80 
00001990 
000020 CO 
00002 010 
00002020 
00002030 
00002 040 
00002050 


10 « 18 SOLUTION CCNTPGLS 

00002060 

CYCLES = DUMdl 

00002070 

HINIT = DUM (2 1 

00002080 

ERROR » DUM (3) 

00002 090 

I YE = DUM 14) 

000021 CO 

CIC = DUM (5 ) 

00002110 

I YIC = DUM <6 1 

00002120 

BERR = DUM (7 ) 

00002130 

GO TO 200 

00002140 

10 =7 HUBX 

00002150 

HMX = DUM H ) 

00002160 

HCX * DUMI2) 

00002170 
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HKX = DUMB) 

HEMJ=0UM(4) 

GO TO 200 

C 10—8 HUB V 

330 HMY = DUMU) 

HCY = 0UMC2 ) 

HKY - 0 UM (3 ) 

HE 1 2 ) =DUM ( 4) 

GO TO 200 

G 10 * 9 HUB Z 

340 HMZ = DUM«1) 

HCZ = DUMC2) 

HKZ * DUM <3) 

HE (3 ) -DUM (4) 

GO TO 200 

C 10 * 13 BLADE FORCE 

350 NXF « .OUM <11 
AFY « OUM (2) 

AFZ = DUM (31 
AFP s DUM <41 
N8F-DUML5) 

PER-DUM {6 ) 

GO TO 200 


PROCESS INPUT CAT A 

CHECKSt DEFAULTS SEE ALSC 1100-1200 


500 IF (INPUT M ) ♦ EQ.Q ) 
I F ( I NPUT ( 2 ) . AE * 0 ) 
NB*1 
TH0=0 
8PC-0 
GV-0 
GW«0 


CALL ERR <5 00,0 I 
GO TC 501 


G P-0 

501 I F (I NP.UTi 3 ) « EG* 01 NY=0 
I F ( I N PUT i 4 * • EQ. 0 ) NZ=0 
IFCINPUT(5).EQ.O) NP=0 
NM-NY+NZ+ NP 

IFCNM.EQ, 0) CALL ERRC501 ,0) 

NMAX = NZ 

I F LNP.GT, NMAX) NRAX = NP 
IFCNY.GT* AIMAX1 NMAX = NY 
I F II NPUT (6)«EG,0) CALL ERR(502 # 0) 

I F <N8. EQ, 1# AA0. ( INPUT (7 ). AE. Q.OR. INPUT (8) .NE.O. OR • INPUT! 9} .NE*0) ) 
i N8-2 

IF (AiB.GT. NBLADE) CALL ERR<506,N8I 
IF (NB.GT,N8LADE) N8-NBLADE 
I F (N8»LT. 1 ) CALL ERR (507 ti) 

IFINB.LT, 1) NB - 1 

IF (NB.EQ* 1 .AND. < INPUT (7 I. NE.O*OR, INPUT ( 8 ) ,NE .0 .OR# INPUT! 9) .NE.O) } 
1 NB=2 


00002180 
00002190 
00002200 
00002210 
00002220 
00002230 
00002240 
00002250 
00002260 
000022 70 
00002260 
00002250 
000023 00 
00002310 
00002320 
00002330 
00002340 
000023 50 
000023 60 
00002370 
000023 80 
00002350 
00002400 
00002410 
00002420 
00002430 
00002440 
00002 450 
00002460 
00002470 
00002480 
00002450 
00002 5 00 
00002510 
0 0 0 02 5 2 0 
00002530 
00002540 
00002550 
00002560 
00002570 
00002580 
00002550 
000026 00 
00002610 
00002620 
00002630 
00002640 
00002650 
00002660 
00002670 
00002680 
00002690 
00002700 
00002710 
00002720 
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IFU NPUTI7 ) * NE.O) GO TC 502 
. HMX=0 
HCX=0 
HKX=G 
HE (I I =0 

502 IFUNPUT(8).NE.O) GO TG 503 
HMY * 0 

HCY = 0 
HKY * 0 
HE 12) =0 

503 IF (I NPUTI9). NEoQ) GO TC 504 
HMZ=0 

HCZ=0 

HKZ=0 

HE(3)-0 

504 0 MR A T = CMEG/GLDCM 
OMRATS=GMRAT *GMR AT 

I.F (INPUT Cl 3 1 .NE.O.AAD. ( NX F.GT .NX .OR.NX F.L E.O ) ) CALL ERR I 510, 0) 
IF (INPUT (13) *NE. 0* AND. ( AFY.EG.O .ANC.AFZ.EQ *0 .AN D.AFP .EQ .0)1 
I CALL ERR (511,0) 

IF (I NPUT (13) • NE. 0. AND.NBF.GT .NB> CALL £RR( 512# NBF ) 

IF ( INPUT (13) .NE.Q. AND. NBF*GT .N8 ) NBF = 0 

IF ( INPUT (13) * NE* 0* AND* NBF*LT *0 ) CALL ERR(512,NBF ) 

IF (INPUT (13) *NE* Q* AND*NBF*LT *0 .1 NBF = 0 
I F 4 1 NPUT( 17) *EQ. 0) NU N=0 
IF Cl NPUTM7) *EC* 0) NFLCQ=0 
IF 4 I NPUT ( 18 ) * EQ.O) CALL ERR(5O9,0) 

C ADD BLACE LOADS TO HUB 

DO 508 I -1 »3 
508 HF(I)=HE(I) 

IF ( I NPUT (13). # EjC*-OJ GO T C 509 

IF(AFZ.EQ.O) GO TO 506 

I.F 4 1 NPUT 4 9) • EQ.Q ) GO TC 506 

CONST=AFZ 

IF4NBF.EQ.0) CCNST«Nfl*CONST 
HF (3 ) =HF (3) + CONST 
5 06 IF 1AF Y* E Q* 0) GO T C 509 

IF 4 t I NPUT47) .EG. 0. AND* INPUT ( 8 ) .EQ.O) •GR#NBF* EQ»0) GO TO 509 
CALL ERR 4 5 10 »N8F J 
NBF =0 


COMPUTE COEFFICIENTS, ETC. 

509 CALL I NT ( TH , THP ,THO *X » NX , 1 ) 

DO 510 1=1 , NX 
DUMMY1 = SEA(I)**2*EAM1 
DUMMY2 = EIPCD-EOPII ) 

EV(I) = eiPU)-DUMMY2^TH(I)^2“CUMMYl 
DELEd) = DUMMY2-DUMMY1 
EONE (I) = SEA( I) *EA(I)*KA( I)**2-EB2( I) 

EWU) * EOP< I) +DUMMY2 *TH< I )# *2— DUMMY L*TH( I ) 
EPCI) = G.J.4I )-4K A( I ) **4*EA( I )-EBi( I ) ) *THP( I)** 2 
DELK4II = KM2CI) **2-KMlU)**2 

510 KM II) = KM2 ( I ) **2+KMl ( I ) **2 

C FORM MASS INTEGRALS 


00002730 
00002740 
00002750 
00002760 
00002 770 
00002780 
00002750 
00002800 
00002810 
00002820 
00002830 
00002840 
00 0 02 8 50 
00002 860 
00002870 
00002 880 
00002890 
00 C 029 CO 
00002 910 
00002920 
00002930 
00002940 
000 02 9 50 
00002960 
00002970 
00002980 
00002990 
00003000 
00003010 
0 0003 020 
00003030 
00003040 
00003050 
00003060 
00003070 
00003080 
00003050 
000031 GO 
00003110 
000031 20 
000031 30 
00003140 
000031 50 
00003160 
00003170 
00003180 
00 0 03 1 90 
00003200 
00003210 
00003220 
00003230 
00003240 
00003250 
00003260 
00003270 
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C RECOMPUTE ALL COEFS UNLESS CNLY IC - 6 OR .GE. 17 ARE CHANGED 
LCALC-* TRUE* 

600 DO 601 1*1 t l 6 

IF <1 *£ 0.6 ) GC TO 601 
IF (INPUT fl ) » £*Q#2 ) GO TG 602 

601 CONTINUE . * 

LCALC=* FALSE * 

IF (INPUT (6)* ECU 2) GO TC 1075 
' GO TO 1100 

C FORM INTEGRANDS 

602 DO 610 I - 1 ,NX 

mi u ,n ’* M<n 

MI (I ,2) = 

MI <1 ,3} a MU) *E<n 
Mi ( I , 41 = HUI ,3)^(0 
MI (I ,5) = MI u ,3J*THU) 

MI (I ,6) = MI {I ,5 J*XU ) 

MI (I ,7) a Mm*KM2(n**2 
MI (I ,8) * MI (I,7)*THU ) 

610 MI(1, 9) = MU) *DELK( I I #TH ( I ) 

00 630 J * i *9 
DO 620 1 = 1 ,N X 
620 DUMPP(I) = MI ( I , J) 

CALL INT ( DUMP ,DUMPP,G ,X » NX , 2) 

CALL INT ( DUMPP,CUMP,0 ,X,NX, 2) 

DO 630 I = 1 ,NX 
MI (I , J) •* DUMP (I I 
630 MI I i I , J) = DUMPP(I) 

C MIC 1 , 10 J 

DO 635 I a l f N X 

635 DUMPPIU = MIM ,2)*KA( I)^2nHPd) 

CALL INT(DUMP,DUMPP,Q,X,NX,2 J 
DO 640 Ial # NX 
640 MI (I ,10) = DUMPI I) 

C FORM Y INTEGRALS 

650 IF (INPUT 13) • EG*0 I GO TG 700 
C FORM INTEGRANDS 

DO 660 I = 1 ,NX 
DO 660 IM = 1 *.NY 
YIIi,IM*ll a M( I) *Y ( I , IM) 

YI (I » I M ,2 ) = yi!IfIM v ir«EIU 
VI (I , I M , 3 ) a YI ( I , LMt 2 ) *TH{ I J 
YI Cl • I M , 4 ) a Mil ) WU» IM| 

YI (I ,1 M, 5) = M (I )«E( IMYPUt IM) 

YI (I /I M,6 ) = YIU«IM»5)*X< I)*TH<IJ 

YI (I , I M , 7 ) a MI ( I , 2 1 *Y P P { I , I M I 

YI 1 1 , 1 M ,8 ) a YI(It iM,7>*SEA< II*TH< I) 

YI (I » I M ,9 ) a YPPU,IM>*EONE< n«THP(II- 
660 YI(IflMflO) = YPPII ,IM)*$EA< II 
DO 670 J = i t 9 
DO 670 IM = I, NY 
DO 665 I = i f NX 
665 DUMPPCI) a YI(I,TM,JI 

CALL INT ( DUMP fDUMPP ,0 ,X,NX, 2} 

C ALL I NT ( DUMP P ? DUMP ,0 »X t NX , 2) 


000032 80 
000032 90 
00003300 
00003310 
00003320 
00003330 
00003340 
00003350 
00003360 
000033 70 
000033 80 
00003390 
00003400 
00003410 
0 0 0 03 4 2 0 
00003430 
00003440 
0 0 0 03 4 5 0 
00003460 
00003470 
00003480 
00003490 
000035 00 
00003510 
00003520 
00003530 
00003540 
00003550 
00003560 
00003570 
00003580 
0 0 0 03 5 90 
00003 6 CO 
00003610 
00003620 
00003630 
00003640 
00003650 
00003660 
00003 6 70 
00003680 
00003690 
00003 700 
00003710 
00003720 
00003730 
00003740 
00003750 
00003760 
00003 770 
00003 7 80 
00003790 
0 0003 8 00 
00003810 
00003820 
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DG 670 I * 1 ,NX 
YI <1 ,lM f J1 = DUMPU) 

670 YI !<I ,1 M, J) = 0UMPPM1 
DO 680 IM * 1 *NY 
DO 675 I = i ,NX 
675 DUMPPCIJ = YKItlMtlO) 

CALL INI ( DUMP , DUMPP ,0 , X, NX , 11 
DO 680 I = 1 ,NX 
680 YI U »l Mf 10) * DUMPm 
DO 682 1 = 1 » NX 
DO 682 IM = 1 »NY 
I FLEA (I ) ♦£ C* 0) SKIf-IMfll = 0 
IFCEA f 1 1* N£#0) SI II YI M,1 1 = Y I ( I , IM, 11/ EA( I ) 
SI (I , I M,2 ) = .M(I1*YIU,IM,101 

682 SI Cl , I M,5 ) = :KACl)**2#THPCIJ*YI.(I, IM, 1 } 

DO 685 IM = 1 ,NY 

DO 683 1 = 1 ,NX 

683 DUMP PI 1 J = SI ( I , IM ,1.1 

CALL INTCDUMP, DU MPP ,G , X ,NX, 1 ) 

DO 684 1 = 1 ,NX 

684 DUMP (I I = DUyP(U*Mm 

CALL I NT (DUMPP , DUMP ,0 , X , NX ,21 
CALL I NT < DUMP , DUMPP ,0 ,X , NX * 2 ) 

DO 685 I = 1 ,NX 

685 Si ll , I M ,11 = DUMP (II 
DO 690 IM = 1 , NY 

DO 686 1 = l ,NX 

686 DUMPP ( 1 1 = SIM, IM ,2 1 

CALL I NT ( DUMP ,DUMPP ,0 , X , NX , 2 ) 

CALL INT { DUMPP , DUMP ,0 ,X , NX , 21 
00 690 I = 1 ,NX 
690 SI Cl , I M ,2 ) = DUMPP Ml 
DO 695 IM = 1 ,NY 
DO 692 I = 1, NX 
692 DUMPPCI1 = Sill , IM ,5 I 

CALL INT (DUMP , DUMPP ,0 ,X , NX, 21 
DC 695 I = 1 ,NX 
695 SI (It I M, 5) = DUMPU1 
C FORM Z INTEGRALS 

700 IF (I NPUT (41 * E0*0 1 GQ TG750 
DO 710 I = IfNX 
DO 710 JM = 1 , NZ 
2I1I,JM,U = MCI 1 *Z ( I , JM) 

Z1 (I , JM, 2 I = ZI ( I , JM,1 1 *E( M 

zi(i,jm, 3) = Hcn*x(.n«p«ii jmi 

ZI U , JM,41 = ZX I I,JM f 3)*EM> 

21(1 , JM ,5 > = Mm*ZPUijM)*EUWH(n 
ZI (I , JM ,6 i = MIU,2)*ZPPU,JM) 

ZI Ci , JM ,7 3 = ZI ( I » JM ,61 *$ EA< I } 

Zi (I , JM,8 ) = ZPP-(I f .JMl*EGNE<I}4THm*THP(ll 
7lOZICItJM,9) = ZPPU,JM)*SEA( I)*THU1 
DO 720 J = 1,8 
DO 720 JM = 1 , NZ 
DO 715 I = 1 ,NX 
715 DUMPP (U = Z I (I , JM , J ) 


00003830 
00003840 
00003850 
00003 860 
00003870 
00003880 
00003890 
00003 9 CO 
00003910 
00003920 
00003930 
00003940 
00003950 
00003960 
00003970 
00003980 

00003 950 
00004000 
00004010 . 

00004 020 
00004030 . 
00004040 
00004050 
00004060 
00004070 
00004080 
00004090 
000041 CO 
00004110 
00004120 
00004130 
00004140 
000041 50 
000041 60 
000041 70 
000041 80 
000041 90 " 
000042 CO 
00004210 
00004220 
00004230 
00004240 
00004250 
000042 60 
000042 70 
000042 80. 
00004290 
000043 CO 
0000 4310 
00004320 
00004330 
00004340 
00004350 
0 0004360 
000043 70 



CALL INT CDUMP f DUMPP f 0,X,NXt2) 

CALL INT (OUPPP,OUMP,O f X,NX f 2) 

00 72 0 I •* 1 *NX 
Z I II tJH f * DUMP (I I 
720 ZI HI » JM, J) = DUMPPIi) 

DO 730 JH * 1*NZ 
DO 725 1=1 ,NX 
725 DUMPPII) * Z 1 1 1 « JM ,9 ) 

CALL INT I DUMP tDUMPP »0 , Xf NX t 2 ) 

OG 730 I * I ,NX 
730 ZI II * JM t 9) = OUMP(I) 

0 0 740 JM » 1 *.NZ 
DO 735 I * 1 ,NX 
735 DUMPPII) = M(n*ZIU,JMt9) 

CALL INT <DUMP*DUMPPtO »X*NX, 2) 

CALL INT IDUMJ>P*0UMP*Q*X»NX,21 
DO 740 I * 1 ,NX 
740 SIM»JHt3.'l - DUMPPII) 

FORM P INTEGRALS 
750 IFIINPUTI5)* EQ.O) GO TC 800 
00 760 1*1, NX 
0 0 760 IM = 1 1 NP 
PIM,IM,1I = MU J*EI U *F( I, IM) 
pin , i h., 2' ) = Piu,iM,i)*xm 
PIM, IM*3) ■*■ PIM,lM,il*THCI1 
PI (I 1 1 Ht4) * Mil) *KMI I ) *P.( ft IM J 
PI (I , I M , 5 ) =* Mm*DELKII)*PII,IM> 

Pill ,IM,6) = EPm WU,IM) 

PI-<I,IM,7J - KAU)**2*MII I,2.)*PPIl, I'M) 
760 PIII,IM,8) * KAI I) **2*THP t I) *PP4 It IM I 
00 770 J * 1 tl 
DO 770 I M ~ It NP 
DO 765 I = L t NX 

765 DUMP PI I ) = PIIItlMtJI 

CALL INT I DUMP tOUMPP tOtX, AX t 2) 

IF I J*GT* 5 ) GO TO 766 

CALL I NT I DUMPP tDU HP ,0 »X * NX t 2 ) 

766 0 0 770 I = 1 » NX 

PI (I « I M* J) = DUMP ( I ) 

IF I J « G T • 5 ) GO TO 770 
PI I(I.,-.IM,J) = DUMPPII) 

770 CONTINUE 

DO 780 IM * 1,NP 
DO 775 I = I ,NX 
775 DUMPPII) = PICI, IM,8J 

CALL INT (DUMP*DUMPP,0*X*NX, 1) 

DO 780 I = L ,NX 
780 PI (I , I M f 8 1 ■*. DUMPIII 
DO 790 IM * l,NP 
DO 785 I * l ,NX 
785 DUMPPII) - Mfi)*PII.i,IM,.8) 

CALL INT (DUMPtDUMPPtO tX,NX,2) 

CALL INT ( DUMP P t DUMP tO »Xf NX f 2 I 
DO 790 I = 1 ,NX 
790 SI II, I M ,4 1 = DUMPPII) 


000043 80 
00004390 
000044 00 
00004410 
00004420 
00004430 
00004440 
00004450 
00004460 
00004470 
00004480 
00004490 
000045 CO 
00004510 
00004520 
00004530 
00004540 
00004550 
00004560 
00004570 
00004580 
00004590 
00004600 
00004610 
00004620 
00004630 
00004640 
00004650 
00004660 
00004670 
00004680 
■000 04 6 5.0 
000047 CO 
00004710 
00004720 
00004730 
00004740 
00004750 
00004760 
00004770 
00004780 
00004790 
00004800 
00004810 
00004820 
00004830 
00004 840 
00004850 
00004860 
00004870 
00004880 
00004850 
00004900 
00004910 
00004920 


100 
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DEFINITE INTEGRALS 
BLADE FORCE INTEGRALS 
800 l F t INPUT (13) « EC* Q I GO TC 810 
DO 802 I=l,NX 

802 ALII U)=AMAXno.G ? X<NXF)-xm> 

810 IP(NY.EQ.O) GO TC 851 
DO 850 1 = 1 ,NY 

IF (INPUT (13) • E G« 0« OR* AFY • EQ»0 ) GO TO 8 24 
DC 815 K=1 f NX 

815 DUMPP(KJ=AFY*Y(K,I)*ALn<K) 

DYALI1 U )*DI NTtDUMP,DUMPP,X,NX) 

824 DO 82 5 J = 1 tNY 

DYSI LI , J, 1 ) = 0INT2(Y,SI,I,J, It 5 ,X , NST A, NX, DUMP , DUMPP ) 
0YSI(I.Jf2) = D1NT2(Y»$I,I ,2, 5,X , NST A, NX , DUMP, DUMPP ) 

DO 825 K - 1 ,9 

0 YYt < 1 , J,K) =■ DINT2 C Y , Y I , 1 ,0 , K, NYMODE# X, NSTA, NX, DUMP , DUMPP 1 

825 0 YYI I II v J > K) = DINT2(Y,YII ,1 , J ,K, NYMQDE,X , NST A, NX, DUMP , DUMPP ) 
IF ( him E Q® 0) GC TO 832 

DO 830 J * 1 ,NZ , 

DYSI (I « J ,3 ) * 0INT2(Y, SI,I,J,3, 5, X,NSTA,NX, DUMP, DUMPP ) 

DO 83 G K * 1 ,8 

830 OYZmitJiK) = DINT2IY, ZII, I, JtK,NZMCDE,X,NSTA»NX, DUMP, DUMPP) 
832 IF (NP.EG.O) GC TO 836 
DO 835 J .* 1 f NP 

QY$I(I,J,4> = DINT2(Y,SI,I,J,4,5,X,N$TA,NXtD.UMP,DUMPP) 

835 D YPI I (I , J , 3) * DINT2(Y,PII f I, J, 3, NPMCDE, X , NST A, NX , DUMP, DUMPP ) 

836 DO 845 K ~ 1 ,9 

DYMIllfK) = DINT1(Y,MI ,I,K,X,NSTA,NX,0UMP,OUMPP) 

845 OYMIIU »KI = DINTKYtMIIt I , K,X , NST A, NX , DUMP, DUMPP ) 

85 0 DY MI II, 10) - DINT1 (Y,MI, 1,10, X, NSTA, NX, DUMP, DUMPP) 

851 IF (NZ.EG*0) GC TO 881 
DO 880 I * 1 ,N Z 

IF C £ NP UT C 1 3 ) • E C » 0* 0 R * A FZ # E G • 0 I GO TO 854 
DO 852 K*I*NX 

852 DUMPP ( KI^AFZ^ZlKtll^ALinK) 

DZALM ( I J = Dt NTIDUMPtOUMPP ,X, NX ) 

854 IF<NY.EQ*Oi GO TC 856 
DO 855 J = X ,NY 

DO 855 K * 1 ,9 

DZYI II , J, K) = DINT2(Z, YI,I,J,K, NYMODE, X,NSTA, NX, DUMP, DUMPP) 

855 DZYlIUtJtKi = DINT2 CZ , YI l ,1 , J, K, NYMODE, X,NST A, NX, DUMP, DUMPP > 

856 DO 860 J = 1 ,NZ • 

DO 860 K ~ i ,8 

860 D ZZI.I (I y J , K) = DINT2IZ,Z1I ,1 , J, K , NZMCDE, X , NSTA, NX, OUMP,DUMPP ) 
IF ( NP# EG* 0) GC TO 866 
DO 865 J = l ,NP 

OZPI (1 ,J, 2 ) = 01 NT 2 IZ t PI 1 1 , j t2, NPMQDEt X, NSTA,NX, DUMP, DUMPP I 

865 D ZPI III , J ,1 ) - DI NT2 (Z, PII , I , J, 1, NPMODE, X , NSTA, NX, DUMP , DUMPP ) 

866 DO 870 K - 1 ,9 

DZMI (I ,K) = DlNTUZfMI , I ,K,X ,NSTA, NX, DUMP, DUMPP ) 

870 DZMI I (I ,K> - D INTI (Z,MII,I , K, X , NST A, NX , DUMP, DUMPP | 

880 DZMI 1 1 ,10) = 0INT1 <Z,MI * I ,10 ,X, N$T A, NX, DUMP, DUMPP) 

881 IF < NP* EG# 0 1 GC TO 901 
DO 900 I s i fNP 

IF (INPUT C13) *EC*0.CR*AFP # EQ*0) GO TO 8 84 


00004930 

00004940 

00004950 

00004960 

00004970 

00004980 

00004 990 
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00005220 

00005230 

00005240 

00005250 
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00005250 

00005300 
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00 882 K=1 ,NX 

882 DUMPP<K)=AFP*PCK,IJ*Ai.II{Xl 

DPALIHI1«0I MCDUMP, DUMPP, X, NX 1 

884 IF(NY*EQ*0) GO TC 886 
00 885 J = 1 ,NY 

DPS! (I « Jvl ) = DI M2 ( P,Sit T,J , 5, 5,X, NST A, NX# DUMP f DUMPP ) 

DO 885 K - i ,9 

DPYI’C l , J , K ) - DIKT2 (P , YI , l ,J ,K, NYMCDE, X, NSTA, NX , DUMP , DUMPP ) 

885 0 P YI I <1 » J » K) = DINT2(P,YII »I , J, K, NYMODE, X, NSTA, NX, DUMP , DUMPP ) 

886 IF ( NZ» EQ* 0) GO TO 891 
DO 892 J = 1 f NZ 

DO 890 K = 1 ,8 

OP 21 (I , J, K) =*0INT2(P,ZI , I, J,K, NZMODE »X , NST A, NX, DUMP , DUMPP ) 

890 DP 21 1 II , J, K) = DINT2 ( P , 21 1 » I , J , K» NZMODE, X , NSTA , NX , DUMP, DUMPP ) 

892 OPZI M , J, 9 I ■ = DI NT2 (P,ZI , I * 4 1 9r NZ MODE , X , NST A, NX » DUMP , DUMP P ) 

891 DO 895 J * f*NP 
DO 895 K * l f 7. 

OP PI (I., J, K) = 01 M2 (P , PI , I » J ,K, NPMODE, X, NSTA, NX, DUMP, DUMPP I 
IF ( K.GT. 5 ) GO TO 895 

DP PI I II » J, K) = DINT2(P»PIl,I,J, K, NPMODE, X, NSTA, NX, DUMP , DUMPP ) 

895 CONTINUE 

896 DO 897 K = 1,9 

DPMI lit KI = DI NT l ( P ,MI , I , K,X , NST A, NX , OUM P, DUMPP > 

897 DPMI I Cl ,Kl = DINT1 (P, Mil, I, K,X, NST A, NX , DUMP, DUMPP) 

900 DPMI (I , 10) = DINTUPtMItl , 10 , X , NST A, NX , DUMP, DUMPP ) 

901 IF (NY.EQ.O) GO TO 931 
DO 930 J ~ I ,NY 

DO 910 K .* 1 ,NY 
DO 902 1 = 1 ,NX 

902 DUMPP(i) = Y(I ,J)*(R -X ( I ) ) *Mt NX ) *E(NX ) *Y ( NX ,K ) 

D YF ( J ,K,1 3 = DI NT (DUMP, DUMPP, X,NX| 

DO 904 I = i ,NX 

904 DUMPP II) = Y Cl t J1 *S.E A-( 1 ) *Y 1 1 I »K, 1 } 

D YF { J,K,2) = DINT ( DUMP , DUMPP, X, NX i 
DO 906 I = 1 , NX 

906 DUMPP CD = Y (I ,J)*EV ( I )*YPP( I»K) 

910 D YF ( J ,K,3 ) = DINT ( DUMP , DUMPP, X, NX I 
IF CNZ.EQ.OJ GO TO 916 
00 915 K = 1 ,NZ 
DO 912 I = 1 *NX 

912 DUMPP (II = Y (I ,J)*DEtEm*THU)*ZPP< I,K) 

915 D YF I J,K,4 J = DINT < DUMP , DUMPP, X, NX ) 

916 IF ( NP*EQ«0) GO TO 925 
DO 920 K = 1 ,NP 

DO 917 I = 1 , NX 

917 DUMPPm « YiliJ)* (—ECS III *T H ( I J *PPP ( I , K ) +EON El I)*THP( II*PP( l,K)I 
920 DYF(J,K,5) = DINT ( DUMP , DUMPP, X, NX 1 

925 DO 927 1=1, NX 

927 DUMPP ( I i =Y ( I ,J)*<SEAU1*MI(I,2M-P^(R-X( IIJ*MINX )*E(NX )) 

930 D YF ( J ,1 ,6 ) a DINT ( DUMP , DUMPP, X , NX ) 

931 IF (NZ.EQ.O) GC TO 961 
00 960 J = 1 ,NZ 

IF (NY.EQ.O) GO TO 936 
DO 935 K = 1 ,NY 
DO 932 I » l ,NX 


00005480 
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00005500 
00005510 
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00005550 
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000055 80 . 
00005550 
00005600 
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00005620 
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00005650 
00005700 
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00005760 
00005770 
00005780 
00005750 
00005 8 CO 
00005810 
00005820 
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00005850 
00005860 
00005870 
00005880 
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932 0 UMPP ( I ) = Z(I ,J)*UR-X( m*M{ NX)*£<NX }*T Hi NX ) *Y { NX* K ) 

1 ♦ $EA(II*TH( I)*YI lit K,l) J 

0 ZF ( 8 ,K,1 } * DINT ( DUMP* OUMPP*X*NX I 
00 934 1=1 ,NX 

934 0 UMPP (I) * Z(1 tJl*DEL£<I)*THm*YPP( 1»K) 

935 0ZFC8,K*2) = DINT < DUMP ,DUMPP,X, NX I 

936 DO 938 K-l »NZ 
DO 937 I = 1 ,NX 

937 DUMPPU) = l il , J ) *EW ( I ) *Z P.P4 I , K ) 

93 8 DZF ( Jf K»3 1=0 I NT C DUMP , DUMP P*X , NX I 

IF ( NP* EG# 0) GO TO 946 
00 945 K = 1 fNP 
DO 940 I * ItNX 

940 0UMPPU1 = Z II , J )* CECS (I) *PPP( I *K1 +EQN EC I)*T H< I)*TPPf I }*PP ( I »K J ) 

D ZF ( J , K,4) = DINT C DUMP *OUMPP,X » NX I 
DO 942 1 = 1 f NX 
942 DUMPPU ) »-ZlI«JJ* 

1 ISEAU)*MI { I f 2MP(I ,K)+Xmx)UX{NX}-X( I) )*M(NX >*E<NX }*P<NX,K) I 

945 0 ZF I J »K »6 ) - DINT I DUM P f DUMP P» X , NX ) 

946 DO 950 I = 1 ,NX 

950 DUMPPU) = ZU,J)*< SEA(lI*Ml{It2)*TH< im<NX ) *MCNX )*ECNX )*TH<NX> 

i *(R-xmii 

960 D ZF { J tl «5 } = DINT { DUMP, DU MPP* X , NX ) 

961 IF (NP.EQ.OI GO TO 991 
DO 990 8 = 1 ,NP 

IF ( NY* E C* 0) GO TO 965 
DO 963 K = l ,NY 
DO 962 I * 1 , NX 

962 DUMPPU) = PCI ,J)*6CSmnHC K2:«YPP(-!»K.) 

963 DPF ( J t K , 1 ) = DINT < OUM P, DUMP P , X , NX I 
965 I F C NZ.EG.O ) GO TO 971 

DO 970 K=1 *NZ 
0 0 96.4 1 = 1 ,NX 

964 DUMPPU) = P U » J ) *ECS I I ) *ZPP< I , K) 

970 DPF ( J,Kt2) = DINT { DUMP, DUMP P ,X ,NX I 

971 IF CNZ.EC.G) GO TO 990 
DO 980 K = 1 ,NP 

DO 975 I = i , N X 

975 DUMPPU) = PCI t J ) * ECS < I J *P P P ( I , K I 
980 DPF C Kf3 ) = DINT ( DUMP , DUMP P,X, NX ) 

990 CONTINUE 

DAMPING DEFINITE INTEGRALS 

991 IF (NY. EC* O.GFUGY.EQ.O) GO TO 995 
DO 994 8=i ,NY 

DO 992 K=l * NX 

992 YZPI { K) = Y ( K , J ) 

CALL I NT ( OUMPP , YZPI »G ,X , NX , 2 I 
CAL L I NT C YZ PI rD UM P P , 0 , X , NX , 2 ) 

DO 994 1=1 t NY 
DO 993 K=1 f NX 

993 DUMPPCKJ = Y2PI<K)*Y<K,I> 

994 DYDU , J)=DINT(DUf'P,DUMPP,X,NX)*GV 

995 IFCNZ.EQ*O*OR.GW.EQ.0J GO TO 999 
DO 998 0=1 ,NZ 

DO 996 K=1 f N X 
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996 YZPI I K) =Z I K » J) 

CALL INT(DUMPPtYZPl,0,X t NX,2l 
CALL INK YZPI *0UMPP»0 ,X, NX* 2) 

00 998 I *N 2 
DO 997 K~1 ,NX 

997 DUMPP(JO-YZPHK) *Z(K»I) 

998 D ZD 1 1 f J) =DI NT ( DUMP ? DUMPP* X* NX ) *GW 

999 IF(NP*EG*Q.OR.GP.EQoO) GO TO 1010 
DO 1002 J=1 »NP 

DO 1000 K= 1 1 N X 

1000 YZPI I K) ~P ( K f J) 

CALL INT!DUMPP*YZPI «Q»X> NX* 2) 

CALL INK YZPI ,0UMPP,0*X f NX, 2) 

DO 1002 I=1*NP 
DO 1001 K= l $ NX 

1001 D UMPP ( K) = YZPI CKJ *P<K,I) 

1 002 DPDIl ♦ J)=DI NT CDUKP >DUMPP»X » NX )*GP 
C FORM BLADE COEFFICIENT MATRICES 

101011=0 

IF C NY* E Q« 0) GO TC 1031 
DO 1030 I = 1 ? NY 
JJ = 0 
II = 1 1 + 1 
00 1015 J = 1 » NY 
JJ ■* JJ+1 

COI UlrJJ) * CYYIICIfJfl) 

DCOI(Ii,JJ) « 4*DYSI<I,J,i) 

C00m»JJ)=-DYD< ItJ > 

D C OD (I I* J J ) = ~2 *i 0 YS I I I f J , 2 1 *0 YY I If I , J , 5 DY F I I * J * 2 ) +DY YU I , J , 2) 
1 —D YF C I tJfll) 

COU I »JJ) = -DYFUf J.f3l 

1015 DCOdltJJ.) « DYY.IlU».Jf7l-CYY III I, J, 41 + DYV III It J 1 1) 

1016 IFtNZ.EQ.OT GO TO 1021 
DO 1020 J = 1 » N Z 

J J ~ JJ+i 
CGI II I f JJ) = 0 
DCOI III ,JJ) = 0 
COOIIIf JJ) = 0 

DC 00 ( 1 1 9 J J ) = -2KDYSI (It J*3)-DYZIII I, J,5)-BPC*QYZ IK I*J,1)) 
CO(II»JJJ = ~DYF (I * J *4 ) 

1020 DCOdltJJ) = 0 

1021 IF I NP*E Q*0 ) GO TC 1026 
DO 1025 J ■« 1 « NP 

JJ = JJ+1 

COI Ml » JJ) = -0YPmi f J,3) 

DCOI (I I, JJ) =0 

COD 1 1 1 « JJ) = 0 

DCOD 1 1 1 t JJ) « 2*CYS I ( I * J» 4) 

CG(I I * J J) = — DYF 1 1 * J »5 ) 

1025 DCOI 1 1 1 J J) =0 

1026 DF(II) * OYMI III ,3)-CYMI« I, 4KDYFI 1,1,6) 

8FIin=0 

I F ( I NPUT 1 13) * N£. 0» AND# AFY^NE *0 ) 8F( I D -DYAL I II II 

1030 CONTINUE 

1031 IFINZ.EO.O) GO TO 1051 
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DO 1050 I * 1 » NZ 

. 00007130 


JJ « 0 

00007140 


M * "'1 1+1 

00007150 


IF ( NY* E Q*0 J GO TC 1036 

00007160 


DO 1035 J * 1,NY 

00007170 


JJ * JJ+1 

000071 80 


CGI (II tJJl * 0 

00007190 


DCOI (II , JJ) =0 

00007200 


CGDCIItJJ) * 0 

00007210 


DCOD ( II »J J) « t 2*I DZYI (I t J *3 )—DZF( 1* Jt 1)+8PC*DZYI K It J* 1 ) ) 

00007220 


CO (II t JJ) - ~DZFII,J,2) 

00007230 

1035 

DCQCII »JJ) * 0 

00007240 

1036 

DO 1040 J * 1»NZ 

00007250 


JJ * JJ+1 ' 

00007260 


COIUI.JJ) = Qzzn<i,j,i) 

00007270 


DCOI <11 ,JJ) * 0 

00007280 


COD ( I I » JJ )=— CZD ( I,J i 

00007290 


DCGO(lItJJ) - 0 

00007300 


CO(II tJJ) ^ -DZF(I*J»3I 

00007310 

1040 

DC 0 ( 1 1 » J J ) = DZZII(I,J*6I-CZZM(I,J,3) 

00007320 

1041 

I F ( NP*€ Q» 0 ) GO TO 1046 

00007330 


DO 1045 J = i ♦ NP 

00007340 


JJ * JJ+1 

00007350 


COIIIIfJJ) = DZP 1 1( 1 1 Jtl) 

00007360 


DCOI (II*JJ) =0 

000073 70 


COD(IIfJJ) =0 

00007380 


DCOD (II * J J) - 0 

00007390 


CO(II ,JJ) * -D ZF (I 9 J 94 ) 

00007400 

1 045 

DCO( 1 1 | J J) = -DZPI (I 9 J»2)+DZF( I, Jt 6) 

00007410 

1046 

OF II II = -(OZMII I,6)-DZF(Itl,5)+8PC*DZMM( I, 2)1 

00007420 


BF ( I I ) =0 

00007430 


IF(INPUTU3) *NE*0. AND* AFZ*NE*0 ) BF (I ! )~DZ AL lit 1 1 

00007440 

1050 

CONTINUE 

0000745 0 

1051 

IF(NP#EQ*0) GO TC 1075 

00007460 


DO 1070 I * ltNP 

00007470 

* 

JJ * 0 

00007480 


ii * n+i 

00007490 


IF ( NY.EQ.O ) GC TC 1056 

00007500 


DO 1055 J « 1,NY . * 

00007510 


JJ » JJ+1 

00007520 


COI ( I I f JJ) - -DP YI I ( I » J t3 ) 

00007530 


DCOI (II tJJ) * 0 

00007540 


CCDUItJJI -0 

00007550 


DCOD (II » J J) * —2 *DPS I (I 9 J 9 I) 

00007560 


CO (II 9 JJ) « — OPYI ( It J *9) +OPFC I» J v 11 

00007570 

1055 

DCOI 1 1 ♦ JJ) = -IDFYIId ,J#8)«CPYII( I, J, 6)+DPYiI( !,J,3) 1 

00007580 

1056 

I F ( NZ* £ Q* 0 J GO TC 1061 

00007590 


DO 1060 J - 1 1 KZ 

000076 CO 


JJ = JJ + l 

00007610 


COI(U,JJ) = OPZ II ( I 9 J *2) 

00007620 


DCOI (II ♦ J J) =0 

00007630 


cco(ii»jj) - 0 

00007640 


DCOD (I I ,JJI m 0 

00007650 


COill ,JJI=-( DPZI II 9 J 98 ) +DPF( It J 9 2) ) 

00007660 

1060 

DCQ(IItJJ) * DPZIIII,J*7)-QPZIIU, J»4> 

00007670 
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1061 DQ 1065 J = 1 ,NP 
JJ ■* JJ+1 

coi (M * jji = opp 11 1 i * it 4} 

OCQI < 1 1 ,JJ) = 0 
C CD ( 1 1 9 JJ) DPD ( I , J ) 

dc oo a 1 , j j) * o 

COUI, JJI = -DPF1I,J,3>-DPPIU,J,6) 

1065 DCOni,JJ> = -<DPPII(I,J,5)+0PPI<i,J,7)) 

BF 1 1 I ) =0 

IFCINPUTU3) .NE« 0# AND* AFP .N£ # 0I 8 F 1 1 II -D PAL I II I 1 
OF <1 I J =-<DPKIIU,9)i*BPC*DPMII{|,4n 
1070 CONTINUE 

C SUM WITH OMEGAS 

1075 0 MEGS :* OMEG^OHEG 
QMFS-CMF*OMF * 

DO 1080 I — 1 ,NM 
DO 1076 J = 1>NM 

COIR(lfJ) = COI { I f Jl + GNEGS *DCC II I, J I 
CODR < l , J) = CODC I, JI+OMEG *OCCO< I,J) 

1076 COR il 9 Jl = Cod, J)+CMEGS*DCO< I,J) 

C * NOTE F IS EVALUATED IF FCT 

1080 F R (I ) .* OMEGS*DF { I ) 

C INVERT COIR 

CALL I.NV.RS ( COI R »NM , R I CC , WORK » I ROW , I COL, NMODE, NM 1 1 
C HUB EFFECTS WITH OLD OMEG TO BE RATIOED LATER 

IFUNPUT(7I. EQ.0*AND.INPUT<8 ) *EQ«0 • AND • INPUT I 9 ) *EQ .0) GO TO 1100 

I F <» NOT* LC ALCI GO TO 1090 

JJ=0 

IF(NY.EQ.O) GO TC 1087 
DO 1081 J=1 , NY 

jj=jj+i 

CONST = YI (1 , J,1 ) 

B I Nil , J J J = CONST 
BIN(2#JJ)=-CCN$T 
BIN(3,JJI= 0 

BDAM( 1 , J Jl = CONST *2.*CLD0M 
BDAM < 2 , JJI = CONST *2.*CLC0M 
BDAM <3 , JJI = 0 

BSPR(lfJJ) * —CONST *GLCCMS 
B SPR (2 , JJI = CO NST *OLCCMS 
B SPR (3 , J J) 55 0 
COIH UJ,l) = DYMI I C J , 1 1 
COIH { J J,2 ) = -DYMI H J, II 
C OIH { J J ,3 )• = 0 
DO 1081 1=1,3 

1081 CODH(JJ,II = 0 

1087 IF(NZ.EQ.O) GO TO 1083 
DO 1082 J=l»NZ 
JJ = JJ + i 
81 Nil , J Jl =0 
BIN(2,JJ> =0 
B INI 3 , JJI = -ZI(1,J,1I 

BDAM( 1 , J Jl » 0 
BDAM C2 , J Jl = 0 
BDAM <3 , J Jl = 0 
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BSPRdtJJ) - 0 

00008230 


B$PR(2,JJ> * 0 

00008240 


B SPR (3 , J J) * 0 

000082 50 


COIN ( JJ ,1 ) = 0 

00008260 


CQ1H { J J ,2) = 0 

00008270 


COI H < J J ,3 ) = -0ZMI I (Jtl) 

00008280 


00 1082 1 = 1,3 

000082 90 

1082 

C OOH ( J J ,1 ) - 0 

00C083C0 

1083 

IF (NP.EQ.O) GO TO 108 5 

00008310 


00 1084 J=1 > NP 

00008320 


JJ =JJ +1 

00008330 


CONST = PI (1 ,J,3I 

00008340 


BINU, JJ) a -CONST 

00008350 


BIN(2,JJ) = CONST 

00008360 


8 1 NC3 t J.J) = -Pl(l,J,l) 

00008370 


8DAWM , JJ) = -CONST *2# *CLOGM 

000083 80 


BDAM(2, JJ) = -C0NST*2..*CLDQM 

• 00008390 


80AMC3 * JJ) ® 0 

00008400 


8 SPR (1 t JJ) a 0 

00008410 


BSPR(2»JJ) * 0 

00008420 


8 SPR 13 » JJ) = 0 

00008430 


CONST = DPMI l I Jf 3) 

00008440 


corn (jj, ii = -const 

00008450 


C OIH { J J ,2 ) = CONST 

00008460 


COIN ( J J ,3) = -CONST 

00008470 


CODH C JJ»1) = —DP PI I ( J, 3 ) *CLDCM 

000084 80 


C OOH ( J J ,2 ) '■* DPPIICJ,3}*CtOCH 

00008490 

1084 

C OOH ( JJ ,3 ) =0 

00 0085 00 

1085 

DO 1086 1-1,3 

00008510 


DO 1086 J-l ,3 

00008520 


HCilrJ) 0 

00008530 


HKU ,J) = 0 

00008540 

1086 

TMCI *J> * 0 

00008550 


TMU,U = HMX * N8*PIU,l) 

00008560 


TM (2 ,2) a HMY + N8*Mf<l v I> 

000085 70 


TM (3 ,3) .* HM2 + NB^IM,1) 

00008580 


HCll f l) = -HCX 

00008590 


HC (2,2) = -HCY 

00008600 


HC (3 ,3 ) = -HCZ 

00008610 


HK(1 ,1) a -HKX 

00008620 


HK<2 ,2)* = — H KY 

00008630 


H K(3 ,3) * -HKZ 

00008640 

C 

INCLUDE GPEGA IN HUB EFFECTS USES RATIOS 

00008650 

Q 

O' 

O 

r~< 

DO 1091 1-1,3 

00008660 


00 1091 Ja.lt NP 

00008670 


BOAMC I , J) = BDAP ( I ,J)*CMPAT 

00008680 


BSPRCltJlaBSPR-CI ,J)*GRRATS 

00008690 

1091 

CODH ( J, I) =COCH( J ,1) *CMRAT 

00008700 

C. 

NOTE NOTE NOTE SPECIFIC FOR 3 HUB DOF 

00008710 


CALL MXNMBIRI ,8IN ,RIOC , 3, NP, NM, 3 , 3, NMO DE ) 

00008720 


CALL PXM(BiRIO ,BIRI ,COOR ,3, NP, NM, 3, 3, N MODE ) 

O00C3730 


CALL MXMIBI RIG »8IRI ,CCR ,3, NM,NM, 3, 3, NMODE ) 

00008740 


DO 1092 1=1,3 

00008750 


DO 1092 J=1 , NM 

00008760 

1092 

B1RI0II ,J)=BIRIO (I ,J)+B$ PR{ I ,J) 

00008770 
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UUPOUU 


CALL MXM<BIRIDH,BIRI ♦CCOH »3,NM, 
CALL MXMCBIRMH, BIRI ,CCIH ,3 ,NM, 
‘ SOLUTION CONTROLS 

1100 PRMTU) = 0 
GM=OMF 

IF (GM.E Q* 0) QM=GMEG 
PRMT (21 =6*2 8319 *CYCLE5/OM 
PRMT (3) =6.28319 /HiNIT /OM 
' PRMT (4) =ERR0R 

I F (ERROR* LE. 0) CALL ERRUlOOtO) 

PRMT (6) = BEFR 

DO 1105 1= 1,NDIP 

WAR (I) = 0 

LY(i ) = • FALSE. 

1105 0ERY4U =0 

IFU YIC.LE.O) CALL ERR <1105, 0) 

I F < 1 YIC.GT. NDI M) CALL ERR <1106,01 

YVAR(IYIC) = CIC 

IF Cl YE. LE* 0) C ALL ERR (1107,0 ) 

IF (I YE.GT.NDXP>- CALL ERRMl-08.,01 ' 
DERYU YE) * 1.0 

IF < I NPUT <7) • NE. 0) LY<1>= .TRUE* 

IF UNPUTC7) .NE.O) LY<21= .TRUE. 

IF (INPUT (8) .NE.O) LY<3)= .TRUE. 

IF <1 NPUT (8) .NE.O) LY(4)= .TRUE. 

IF (INPUT (9). NE.O) LY<5)= .TRUE. 

IF (INPUT(9) .NE.O) LY<6)= .TRUE. 
1200 101 M * 10+2*NM*N8 
DO 1205 1=11 , 1 DIM 
1205 LY(I ) = .TRUE. 


► 3, NMO DE ) 
i 3, NMQDE ) 


OUTPUT 


OUTPUT 


OUTPUT 


2000 CALL HE AD IN 

IF (INPUTU) .NE.2. AND. INPUT ( 2 ) .NE. 2. AN 0. IC2. EQ .0 ) GO TO 2050 
C 10 = 1,2 

PRINT 9 06 0 , N B , BP C , T HO ,GV, GW , GP 

9060 FORMAT ( / /30 X ,27 HI 0 = 1,2 BLADE PROP ERTI ES// 10X, 15, 7H BLADES 

1 5 X , 9H PRE CONE = ,F6. 3 ,5X ,9 FTHET A 0 = ,F6.3,5X, 

2 15HDAMPI NG (V,V>,P) ,1P3E11.3 

3 // 10X , 98HX M E 

4SMALL EA KMi KR2 KA THETA PRIME < C ) THE T 

5 //) 

DO 2010 I = 1 , NX 

2010 PRINT 9070,1 ,X M I,M(I!,E(i) ,S EAC I ) ,KM1 ( I) , KM 2( I ), K A( I ) , THP ( I ) , 

l THU) 

9070 FORMAT <1 X,1 3 ,IP10E12. 3) 

PRINT 9080 

9080 FORMAT (// 7X, 89HEI CP £1 IP GJ EA 

1 £81* . EB2* ECl ECl* // ) 

DO 2 020 I = 1 , NX 

2020 PRINT 9070,1 ,ECP(I) ,EIPU >,GJ(I),EAC I),EB1( I ), E62C I),EC( I),ECSU) 


00008780 
00008790 
00008800 
00008810 
0QQ08820 
00008830 
00008840 
00008850 
00008860 
00008870 
00008880 
00008890 
00008900 
00008910 
00008920 
00008930 
0G0C894Q 
00008950 
00008960 
00008970 
00008980 
00008950 
00 0090 00 
00009010 
00009020 
0000903d 
00009040 
00009050 
00009060 
00009070 
00009080 
00009050 
000091 CO 
00009110 
00009120 
00009130 
00009140 
000091 50 
000091 60 
000091 70 
000091 80 
000091 90 
000052 CO 
00009210 
A 00009220 
00009230 
00009240 
00009250 
000092 60 
00009270 
000092 80 
00009250 
00QQ93 00 
00009310 
00009320 
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CALL HEADIN 00009330 

PRINT 9090 000093 AO 

9090 FORMAT ( //8X ,29H (C) EW (C)EV (C)EP //) 00009350 

DO 2030 I = liNX 00009360 

2030 PRINT 9070,1 ,EM I ) » EV ( I ) , E F( I) ' 00009370 

C IC * 3,4,5 00009360 

2050 IF(INPUT(3).NE.2.ANC. IC2. EC.0.0R.INPUT(3).EQ.0) GO TO 2075 00009390 

CALL HEADIN 00009400 

PRINT 9100 00009410 

9100 FORMAT (//20X.23HI0 * 3 IN-PLANE MODES // 20X , 18HSEC0ND OERI V00009420 

1 ATI VES //I 00009430 

DO 2055 I = 1 , NX 00009440 

2055 PRINT 9070,1 ,(YPP(l,J) ,J=1,NYJ * 00009450 

PRINT 9110 00009460 

9110 FORMAT ( //20 X ,28 HIC) FIRST DERIV (NORMALIZED) //) 00009470 

DO 2060 1=1, NX 00009480 

2060 PRINT 9070,1 ,(YP(I,J) ,J=1, NY) 00009490 

CALL HEADIN 000095C0 

PRINT 9120 00009510 

9120 FORMAT I //20 X ,15 HIC) MCDE SHAPES//) 00009520 

DO 2065 I = 1 , NX 00009530 

2065 PRINT 9070,1 , (Y(I, J) ,J=1, NY) 00009540 

2075 IF( I NPUT (4) • NE.2.AN0. IC2. EC.O. OR .INPUT ( 4) . EQ.O) GO TO 2100 00009550. 

CALL HEADIN 00009560 

PRINT 9130 00009570 

9130 FORMAT! //20X.27HIO * 4 OUT-OF-PLANE MODES//20X, 1 8HSEC0ND OER I V4 T000095 80 
II VES //) 00009590 

DO 2080 I = l, NX 00009600 

2080 PRINT 9070,1 ,(ZPP(I,J) ,J=1,NZ) ‘ 00009610 

PRINT 9110 00009620 

DO 2085 I = 1 , NX 00009630 

2085 PRINT 9070,1 ,(ZP(I,J) ,J=1,NZ) 00009640 

CALL HEADIN 00009650 

PRINT 9120 00009660 

00 2090 I = 1 , NX ' 00009670 

2090 PRINT 9070,1 ,(Z(I,J) ,J=1,NZ) 00009680 

2100 IF ( INPUT! 5) • NE.2» AND. IC2. EC.O. OR. INPUT { 5) . EQ .0) GO TO 2150 00009690 

CALL HEADIN 00009700 

PRINT 9140 00009710 

9140 FORMAT { //20X.22HI0 = 5 T CRS ICN MODES //20X ,'l8HSEC0ND DER I VATI V00009720 
IE S //) 00009730 

DO 2105 I = 1 * NX 00009740 

2105 PRINT 9070,1 »<PPP(I ,0) ,J=1,NP) 00009750 

PRINT 9110 ‘ 00009760 

DO 2110 I = l, NX 00009770 

2110 PRINT 9070,1 ,(PP(I,J) ,J=1,NP) 00009760 

CALL HEADIN 00009790 

PRINT 9120 00009800 

DO 2115 I » 1 , NX 00009810 

2115 PRINT 9070,1 ,(P(I,J)»J=1»NP) 00009820 

2150 I F ( IC3 . EG. 0) GO TO 2500 00009830 

C DEFINITE INTEGRALS 00009840 

IF(INPUT(3) .EQ.O. OR. ( IN PUT (3) . EQ. 1. AND. IC2. EQ.O) ) GO TO 2200 00Q09850 

CALL HEADIN 00009860 

PRINT 9150 00009870 


109 



9150 FORMAT (// 20X,20H*** DYYI CI,J,M *** // 1 
PRINT 9160, <1 ,1 = 1,10) 

9160 FORMAT !1X,3HI J, 17,9112 /) 

DO 2160 I * 1 , NY 
DO 2160 J = I, NY 

2160 PRINT 9170,1 ,J,(CYYX(I ,J,N>, N*l, 10) 

9170 FORMAT U X ,1 1 , 12 ,1 P10E12.3 ) 

PRINT 9180 

9180 FORMAT! //20X,21H*** DYYII (I,J,N) *** //) 

PRINT 9160,(1 ,1=1,9) 

DO 2170 I =* 1 1 NY 

DO 2170 J * 1 , NY ' * 

2170 PRINT 9170 , I » J »( CYY IK t , J ,N) ,N-1, 9) 

I F (I NPUT (4) • EQ.O 1 GO TO 2176 
PRINT 9190 

9190 FORMAT < / /20 X ,21 H*** CYZII *** //I 

PRINT 9160,(1,1=1,81 
DO 2175 I = 1,NY 
DO 2175 J = 1,NZ 

2175 PRINT 91 70 , 1 , j , < CYZI I ( I , J , N ) , N* 1, 8 I 
CALL HEADIN 

2176 IF (INPUT { 5 1 . EQ.O 1 GO TC 2182 
PRINT 9200 

9200 FORMAT ( / /20 X ,21 H*** DYPII (I,J,N) *** //) 

PRINT 9160,(1 ,1-1,31 
DO 2180 I - L , NY 
DO 2180 J = 1 , NP 

2180 PRINT 9170 , I , J, ( CYPI I ( I , J , N) ,N=1, 3 1 

2182 PRINT 9210 

9210 FORMAT ( //20 X ,20 H*** CYS I (I,J,N) *** // 1 
PRINT 9160,(1,1=1,4) 

00 2185 I = 1,NY 
DO 2185 J * 1,NMAX 

2185 PRINT 9170,1 , J , ( DYS I { I , J ,N) , Ml, 41 
PRINT 9220 

9220 FORMAT ( / /20 X , l 8 H*** DYMI (I,N) *** //) 

PRINT 9160, (I ,1-1,10) 

DO 2190 I * 1 ,NY 

2190 PRINT 9070 , 1 ,( DYMI < l »N I ,N SS 1, 10) 

PRINT 9230 

9230 FORMAT!// 20X,19F*** DYMI I H,N) *** //) 

PRINT 9160,! 1,1=1,91 
DO 2195 I * 1,NY 

2195 PRINT 9070,1 , { C Y MI I! I , N ) , N= 1 , 9) 

2200 IF (INPUT (4) * EQ.O* OR* (I NPUT I41.EQ. 1 .AND *IC2»£Q. 0 1 1 GO TO 2250 
CALL HEADIN 

IF (I NPUT 4 3). EQ.O) GO TC 2211 
PRINT 9240 

9240 FORMAT! //20X,2QH*** DZYI ! I,J,M *** //) 

PRINT 9160,(1,1-1,101 
DO 2205 I = 1,NZ 
DO 2205 J * 1 , NY 

2205 PRINT 9170 * I ,J,(CZYI ( I ,J, M , N= 1, 10 1 
PRINT 9250 

9250 FORMAT! //20X,21H*** DZYII (I,J,N) *** // 1 


00009880 
00009890 
00009900 
00009910 
00009920 
00009930 
00009940 
00009950 
00009960 
00009970 
00009980 
00009990 
0G010QC0 
0G010010 
00010020 
00010030 
00010040 
00010050 
00010060 
000100 70 
00010080 
00010090 
000101 CO 
00010110 
00010120 
00010130 
00010140 
00010150 
0001 0160 
00010170 
000101 80 
00010190 
00010200 
0C010210 
00010220 
00010230 
00010240 
00010250 
000102 60 
000102 70 
00010280 
00010250 
000103 00 
00010310 
00010320 
00010330 
00010340 
0001035 0 
00010360 
00010370 
00010380 
000103 50 
0001 04 CO 
00010410 
00010420 
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PRINT 9160* ( 1 ,1= 1 ,9 ) 

DO 2210 I = 1,NZ 
DO 2210 J = 1 p NY 

2210 PRINT 9170*1 , J, ( CZYII 1 1 , J ,NT,N= i, 9) 

2211 PRINT 9260 

9260 F0RMAT(//20X,21H*** OZZII M,J,N) ■***■ //) 

PRINT 9160,(1,1=1,8) 

DO 2215 1 = X * NZ 
DO 2215 J ■* 1 , NZ 

2215 PRINT 9170,1 ,J,<OZZnU,J, N),N=1, 8) 

IF C I NPUT (5) .EC. 0) GO TC 2226 
CALL HE ADI N 
PRINT 9270 

9270 FGRMAT(//20X,2GH*** DZPI (I,J,N) *** //) 

PRINT 9160* (It 1=1, 2) 

DO' 2220 I = 1 ,NZ 
DO 2220 J = 1 , NP 

2220 PRINT 9170,1 ,J , < DZPI ( I , J, N) , N= i, 2) 

PRINT 9280 

9280 FORMAT! //2.0.X ,21H*** DZPI I (I«j,NJ ■*** // ) 

PRINT 9160, II ,1=1,1) 

DO 2225 I = 1,NZ 
DO 2225 J = 1,NP 

2225 PRINT 9170,1 ,J, CZPII (I,J,l) 

2226 PRINT 9290 

9290 F0RMAT(//20X,18H*** DZPI II, M *** //) 

PRINT 9160,(1,1=1*101 
DO 2230 I = l , N Z 

2230 PRINT 9070*1 ,(0Z Mil, N),N=1, 101 
PRINT 9300 

9300 F ORMAT I//20 X ,19 H*** DZPI I (I,M *** //) 

PRINT 9160,(1,1=1,9) 

DO 2235 I = 1 , NZ 

2235 PRINT 9070,1 , (DZM I { I , N) , N=1 ,9 ) 

2250 I F ( I NPUTI5 ) * EQ.O .OR. .( INPUT ( 5 ) .EG.l . AND *IC2 .£0.0)) GO TO 2300 
CALL HEAD IN 

IF (I NPUT (3 ) . EG. 0 ) GO TC 2261 
PRINT 9310 

9310 FORMAT ( //20 X ,20 H*** DPYI *** // ) 

PRINT 9160, (I, 1 = 1, 10) 

DO 2255 I = 1 ,NP 
: DO 2255 1 = 1 ,NY 

2255 PRINT 91 70 ,1 * J , ( CPYK I , J, N) , N=l, 10 ) 

PRINT 9320 

9320 FORMAT < //20 X ,21 H*** DPYII ( I, J, N) *** //) 

PRINT 9160,(1,1=1,9) 

DO 2260 I = 1 , NP 1 

DO 2260 J = 1 ,NY 

2260 PRINT 9170,1 ,J,(CPYini,J,N),N=l, 9) 

2261 IF (INPUT (4)»EC»0) GO TC 2271 
PRINT 9330 

9330 FORMAT ( //20 X ,20 H*** DPZI (I,J,N) *** // ) 

PRINT 9160,(1,1=1,9) 

DO 2265 I = 1 , NP 
DO 2265 J = 1 ,NZ 


00010430 
00010440 
00010450 
00010460 
00010470 
000104 80 
00010490 
00010500 
00010510 
00010520 
00010530 
00010540 
00010550 
00010560 
00010570 
000105 80 
00010590 
000106 00 
00010610 
00010620 
0001063 0 
00010640 
00010650 
00010660 
00010670 
0001 0680 
00010650 
00010700 
00010710 
00010720 
0001 0730 
00010740 
00010750 
00010760 
00010770 
0001 0780 
00010750 
0001 08 CO 
00010810 
00010820 
00010830 
00010840 
00010850 
00010860 
00010870 
00010880 
00010850 
0001 0900 
00010910 
00010920 
00010930 
00010940 
00010950 
00010960 
0001097 0 
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2265 PRINT 9170 ,1 , J , ( CPZI( I , J, N) ,N=1,9) 

CALL HE ADI N 
PRINT 9340 

9340 FORMAT! //20X.21H*** DPZII U,J,N) *** // > 
PRINT 9160,(1,1=1,8) 

DO 2270 I = 1 » NP 
DO 2270 J = IthZ 

2270 PRINT 9170,1 ,J,(CPZII( I,J,N) ,N*1, 81 

2271 PRINT 9350 

9350 FORMAT! //20X,20H*** DPPI <I,J,N) *** //) 
PRINT 9160,(1 ,1=1,8) 

00 2275 I = 1 ,NP 
DO 2275 J = 1 , NP 

2275 PRINT 91 70 ,1 , J , ( DPP I ( I , J, N ) ,N= 1 , 8 ) 

PRINT 9360 

9360 FORMAT! //20X,21H*** OPPII (I,J,N) ***//) 
PRINT 9160,(1,1=1,7) 

DO 2280 I = l , NP 
DO 2280 J = l , NP 

2280 PRINT 9170,1 , J , ( CPPII ( I , J t N) , N=l, 7) 

CALL HE AD IN 
PRINT 9370 

9370 FORMAT ( //20* ,20 H*** DPS I (I,J,1) *** //) 
PRINT 9160,(1,1=1,1) 

DO 2285 I = 1 ,NP 
DO 2285 J = 1,NY 

2285 PRINT 9170, 1, J, CPSI(I,U,1I 
PRINT 9380 

9380 FORMAT ( //20 X ,18 H*** DPMI (I,N) *** // 1 
PRINT 9160, (1,1=1,10) 

DO 22 90 I = 1 »NP 

2290 PRINT 9070,1 , ( CP PI ( I ,N ) ,N= l , 10) 

PRINT 9390 

9390 FORMAT ( //20 X ,19 h*** DFMII f I,N) ***//) 
PRI NT 9160 , ( I ,1=1,9 ) 

DO 22 95 I = 1 , NP 

2295 PRINT 9070,1 ,( CPFI I ( I ,N) ,N=1 ,9 ) 

2300 CALL HE ADI N 

IF<INPUT(3).EQ*0) GO TC 2310 
PRINT 9400 

9400 FORMAT ( //ZO X ,19 H*** DYF ( I, j, N) *** //) 
PRINT 9160,(1 ,1=1,6) 

DO 2305 I = 1 , NY 
DO 2305 J = 1,NMAX 

2305 PRINT 9170,1 ,J,(DYF( I ,J,N),N= 1,6) 

2310 IF (I NPUT(4) * EQ*0 ) GO TC 2320 
PRINT 9410 

9410 FORMAT (//20 X,19 H*** DZF (I,J,N) *** //) 
PRINT 9160,(1,1=1,6) 

DO 2315 I = 1 ,NZ 
DO 2315 J = 1 , NM AX 

2315 PRINT 9170,1 , J, ( CZFI I , J ,N) , N=l, 61 

2320 IF(INPUT(5)*EQ.O) GO TC 2330 
PRINT 9420 

9420 FORMAT ( / /20 X, 19 H*** QPF (1,0, N) *** //) 


00010980 
0001 0990 
00011000 
00011010 
00011020 
00011030 
0 COU 040 
00011050 
00011060 
00011070 
00011080 
00011090 
000111 CO 
00011110 
00011120 
00011130 
00011140 
000111 50 
00011160 
00011170 
00011180 
00011 1 50 
0001 1200 
00011210 
00011220 
00011230 
000112 40 
00011250 
00011260 
00011270 
00011280 
000112 50 
0001 13 CO 
00011310 
00011320 
00011330 
00011340 
00011350 
000113 60 
00011370 
000113 80 
00011350 
0001 l 4 CO 
00011410 
00011420 
00011430 
00011440 
00011450 
00011460 
00011470 
00011480 
0001 1450 
00011 5 CO 
00011510 
00011520 
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PRINT 9160,(1,1=1,3* 




00011530 


DO 2325 I = 1 •, NP 




000115*40 


DO 2325 J = 1 *NM AX 




00011550 

2325 

PRINT 9170,1 ,J, ( CPF( I ,4,N) ,N=1, 

3) 



00011560 

2330 

IF (GV,E Q* 0. AND.GV*. EQ,0 • AND,GP,EQ*G 1 

GO 

TO 2500 

000115 70 


CALL HEADIN 



■- 

00011580 


PRINT 9421 




0001X5 90 

9421 

FORMAT <//20X,21H*** CYD, 07 D, 

DPD 


//* 

0001 16 CO 


PRINT 9160, (I ,1=1,5* 




00011610 


DO 2335 1=1, NY 




00011620 

2335 

PRI NT 9070,1 , ( 0 Y C ( I , J * , J= l , N Y * 




00011630 


PRINT 9470 




00011640 


DO 2340 1=1, NZ 




00011650 

2340 

PRI NT 9070,1 , (OZCn, J* , J=l,NZJ 




00011660 


PRINT 9470 



• * 

00011670 


DO 2345 1=1, NP 




00011680 

2345 

PRINT 9070,1 , <0P0( I , J1 * J= 1, NPI 



" • •>. 

000116 50 

2500 

IF { INPUT (6) • NE* 2, AND* IC2 *EQ .0 * 

GO 

TO 

2525 

00011700 


PRINT 9430, DREG, CMF 



»• 

00011710 

9430 

FORMAT {//20X,22HIC = 6 RCTCR 

SPEED 

= ,F6.2, 17H 

FORC IMG FREQ =00011 720 

\ 

L ,F6*2 ,12H (RAD/SEC) //* 




00011730 


; COEFFICIENT MATRICES 

2525 I F ( IC4* EO« 0) GO TO 2600 
CALL HE AO IN 
PRINT 9450 

9450 FORMAT C //2QX ,31 H*** CCIR, CCCR, COR, FR, BF *** //I 
DO 2530 I = 1 , KM 

2530 PRINT 9460,(CQIR(l,J) ,J=i,NMI 
9460 FORMA TC3X ,1 Pll HI 1«3 J 
PRINT 9470 
9470 FORMAT!//) 

DO 2540 I = 1 , MM 

2540 PRI NT 9460, C CO OR (l , J) t J=X ,NM ) 

PRINT 9470 
DO 2550 I = 1 , NM 

2550 PRI NT 9460 , ( CGRM * J) , J= 1,NM| 

PRINT 9470 

PRINT 9460 ,1FR < I ) ,1“ 1 , NR) 

PRINT 9470 

PRINT 9460, ( BF (I ) ,1* 1 ,NM J 

CALL HE ADI N 
PRINT 9480 

9480 FORMAT < / /20 X ,24H*** RICC = INVICOIR) *** .//»' 

DO 2560 1=1, NM 

2560 PRINT 9460, CRltiCd , J* , J=l»NM* 

IF UNPUTC7UEQ.0 .AND* INPUT 18 ) .EQ.O .AND* INPUT! 9 KEQ . Oi GO TO 2600 
PRINT 9500 

9500 F0RMAT(//20X,20H*** BIRilH,BIRIC *** //% 

DO 2565 1=1,3 

2565 PRINT 9460 , ( fil RIIH C I , J I , J=l, 3 ) 

PRINT 9470 
DO 2570 1=1,3 

2570 PRINT 9460 , < 8 1 R I C C I » J * , J= I , N M I 
CALL HEAOIN 
PRINT 9510 


00011740 
00011 750 
.00011760 
00011770 
000117 80 
00011790 
000118 CO 
00011810 
00011820 
00011830 
00011840 
00011850 
00011860 
00011 8 70 
00011880 
00011890 
000119C0 
00011910 
00011920 
00011930 
00011940 
00011950 
00011960 
00011970 
00011980 
00011990 
00012000 
00012010 
00012 020 
00012030 
00012040 
000120 50 
00012060 
00012070 
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9510 F0RMAT<//20X*37H*** BI R ID , 8 IR I CH, BTR I* TM, HC, HK * FF *** //) 

DO 2575 1=1*3 

2575 PRINT 9460* (8! RICC I ».J J * J= 1*NM I 
PRINT 9470 
00 2580 1=1*3 

2580 PRINT 9460 * ( BI R I CH { I * J } , J= 1 » 3 ) 

PRINT 9470 

00 2585 1=1,3 

2585 PRINT 9460 *(8IRI ! I * J) , J=1 *NM ) 

PRINT 9470 

PRINT 9460, (TM(I *1 ) ,1=1,31 
PRINT9470 

PRINT 9460 * ( HC (I ,1) ,1= 1*3> 

PRINT 9470 

PRINT 946 0,1 H K { I ,1) ,1=1*3) 

PRINT 9470 
PRINT 9460 *HF 

2600 IF (I NPUT! 7) . NE.G ) PRINT 9600 , FMX , HCX , HKX , 

9600 FORMAT ( //20X *19H 10 = 7 HUE DATA 10X, 

1 4F10.3J 

IFIINPUTI8J. NE . 0 ) PRINT 9601 , PMY, HCY *HKY * 

9601 F OR MA T ( / / 2 0 X ,19 H 1 0 = 8 

1 4F1 0.3) 

IF II NPUT (91 • NE.O ) PRINT 

9602 FORMAT! //20X,T9H 10 = 9 

1 4F10* 3) 

3900 IF 1 1 NPUT M3) . NE. 0) PRINT 9 7 40 * X ( NX F ) , A FY < 

9740 FORMAT! //20X,27H 10 =13 ST A* FY , FZ, f\ 

IF ( INPUT ( 13) * NE. 0. AND. RERUNS .0 ) PRINT 97 

1 F ( I NPUT !13> • NE* 0. AND# P ER. NE.O) N B F= 0 
IF II NPUT Cl 31 .NE. 0. AND. NB. G.T ♦ X * ANCaNBF. EO 
I F i I NPUT (13) • NE. 0® AND* NB. GT « 1 .AND. NBF.NE 

9741 FORMAT (30X*1GHALL BLADES ) 

9742 FORMAT (30X*9HBLADE NO. 13) 

9743 FORMAT < /20 X ,16H1“CCS FORCE FOR , F5.3, 24H OF 
IF (INPUT! 1 71 .NE. 2. AND* IC2.EQ.0 ) GO TO 4000 
PRINT 9750 *NLI N 

9750 FORMAT ( //20 X *16H 10 = 17 NLIN = *13) 

IF(NLIN.EQ.O) PRINT 9760 
IFINUN.EQ.2) PRINT 9770 
IFINLIN.EC.l) PRINT 9755 
9755 F0RMAT<20X*2 7H*** I-P NCN—L I NEA RIT ITS ***) 

9760 FORMAT !20X,27H*** ALL NON-LINEARITIES ***) 

9770 FORMAT «2QX,25H*** NO CORIOLIS TERMS *** ) 

IF ! NFLGQ. NE. 0) PRINT 9780 

9780 FORMAT! 20X ,4 3H*** AUTOMATIC FLOQUET TRANSITION 
IF < NF LQQ.E C. 2) PRINT 9785 

5785 F0RMAT!20X,55H*** STEADY FORCES CUE TO STRUCTURAL 

1#** ) 


00012080 

00012050 

00012100 

00012110 

00012120 

00012130 

00012140 


HUB DATA 


HUB DATA 10X, 



00012150 

00012160 

00012170 


000121 80 


000121 90 


00012200 

00012210 

00012220 

00012230 


00012240 

hf< n 

00012250 

16HHM X* HCX* HKX, HF * 

00012260 

00012270 

HF( 2 ) 

00012280 

16H HM Y , HC Y * HK Y * HF = 

000122 50 
000123 CO 

NEC 3) 

00012310 

X6HHMZ*HCZ*HKZ*HF = 

00012320 


00012330 

A FZ , AFP 

00012340 

= * 4F10.3) 

000123 50 

f3*P ER 

000123 60 
00012370 

0) PRINT 9741 

00012380 

0) PRINT 9742* NBF 

00012390 
0001 2 4 CO 
00012410 


ROTOR CYCLE (FROM 0) 


MATRIX ***) 


EFFECTS IGNORED 


4000 IF(INPUT(18)*NE.2. AND. IC2.EQ.0) GO TO 5000 

PRINT 9800, CYCLES, HINIT, ERROR, IYE,CIC, IYlC,BERR 
9800 FORMAT! //3X*20HI C = 18 CYCLES = , F5 .1* 4X, 7HHINIT =»F5.1* 

1 4X* 7HERR0R = ,F6 .3 ,4X , 5HI YE = , 14, 4X , 5HCI C =, F5. 2* 4.X* 6HI YIC = ,I4, 

2 4X*6HBERR = *F6.2> 


>00012420 
00012430 
00012440 
00012450 
00012460 
00012470 
000124 80 
00012490 
00012 5 00 
00012 510 
00012520 
00012530 
00012 5 40 
00012550 
00012560 
000125 70 
00012580 
00012550 
00012600 
00012610 
00012620 


5000 RETURN 
END 


00012630 

00012640 
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SUBROUTINE IMU»B,AO ?X»NX » ICGNT ) 

A (X I = INTEGRAL OF 8< X 1 WITH BC - AO AT X( IT 
X IS INDEPENOANT VARIABLE 
NX IS NUMBER OF STATIONS 
ICONT =* 1 INTEGRAL FROM 0 TO X 

2 INTEGRAL FROMX TO R (LAST X) 

TRAPEZOIDAL INTEGRATION 

REAL A(li *8 (.11 »X(1) 

A(l)=AO 
DO 10 1=2, NX 

io Acn^Aa-D+iBci-n+Bun^ixi .n-xi i-i) uz 

IF UCQNT.EQ.l) RETURN 
C =A ( NX) 

DO 20 1=1 «NX 
20 A(II=C-A(U 
RETURN 
END 


00000010 
00000020 
0C000030 
0 CO 000 40 
00000050 
00000060 
00000070 
00000080 
ooooooso 

000001 GO 
00000110 
000001 20 
00000130 
00000140 
000001 50 
000001 60 
000001 70 
000001 80 
000001 SO 
00000200 
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10 


12 

13 

11 


14 


15 


17 

18 
16 


SUBROUTINE I NVRS iB,N,A,0, I RCW , I CGL , N RW, NCL ) 

A = INVERSE CF B B UNCISTURBED 

VARIABLE DIMENSIONS NCL MUST BE AT LEAST ONE GREATER 
NR* MUST BE AT LEAST EQUAL TC N 
IROVi, I CCL ARE VECTORS CF LENGTH NCL 
REAL A<NRW,NCU , B ( NRW , NCL I , D i NRW , NCL ) 

INTEGER I ROW (NCL) * I COL I NCL I 
DO 1 1=1 , N 
DO 1 J=1,N 
All # J)=B ( I , J ) 

M-N+l 

DO 7 I =1 ,N 

I ROW ( I ) -I - 

1 C 0 L ( I ) = I 
DO 20 K=1 , N 
AMAX= A<K,K) 

00 10 l=K,N 
DO 10 J=K,N 

IF (ABSi All, Jj J-ABS (AMAX 1)10,9, 9 
A MAX- Ail , J) 

IC=I . 

JC= J 

CONTINUE 

KI=ICOL<K> 

iCQLiK)=ICGL(IC) 

ICGL(IC) =KI 
KI -I ROW i K) 
lROW(K)=IRCto(JC| 

IRGWTJC)=KI 
IF(AMAX) 11,12,11 
PRINT 13 

FORMA T i * SOLUTION OF MATRIX NCT POSSIBLE 1 ) 

GO TO 100 
00 14 J=1,N 
E =A ( K , J ) 

A <Kt J) =A( IC f JI 
AUC, J)*E 
DO 15 1=1, N 
E=A { I ,K) 

Ail , K) = A i I ,JC1 

A i‘T , JC ) = E" 

DO 16 1=1, N 
1FCI-K) 18,17,18 
A(I,M)=1. 

GO TO 16 
A <1 , Ml=0. 

CONTINUE 
P VT=A (K ,K) 

DC 8 J=1 , M 
A(K,J)=AiK,J)/PVT 
DO 19 1=1 ,N 
IF(1-K)21# 19,21 


00000010 
00000020 
THAN N* W00000030 
00000040 
00000050 
00000060 
OC0OOQ7O 
00000080 
00000090 
000001 00 
00000110 
00000120 
00000130 
00000140 
00000150 
00000160 
G00001 70 
000001 80 
000001 90 
000002 00 
00000210 
00000220 
00000230 
000002 40 
000002 50 
00000260 
000002 70 
00000280 
00000290 
000003 00 
00000310 
00000320 
00000330 
00000340 
00000350 
000003 60 
00000370 
00000380 
000003 90 
000004 00 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
t 00000510 
00000520 
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21 AMULT=A ( I *K| 

DO 22 J=l,H 

22 A<I , J)=A(! f J.)*AKtLT*A(K».JI 

19 CONTINUE 

DO 20 I =1 * N 

20 All 9 K>«AU.»tf! 

DO 25 I -1 1 N 
DO 24 L=1»N 

IF C I RGto <1 J— LJ 24,23,24 

24 CONTINUE 

23 00 25 J -I » N 

25 DU,J) = AU,ji 
DO 26 J=1,N 
DO 2 8 L=lt.N 
IFUCGU(J)-l) 28*29,28 

28 CONTINUE 

29 DO 26 1=1 tN 

26 AUfLJ-DU*J) 

100 RETURN 

END 


00000530 
00000540 
00000550 
00000560 
00000570 
00000580 
00000550 
OOOG06CO 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00000680 
00000650 
000007 CO 
00000710 
00000720 



o o no non 


SUBROUTI NE MXM ( A ,8 »C f N t*K f M, NA, KB, NCI 

MATRIX MULT A <NXM)*B( NXK) *C( KXM ) 

DIMENSION A(NAU) t8<N8,il,CI NC, 1) 

DC 20 I -I t N 
DO 20 4-1 » M 
All t J)*0 
DO 20 L=1 iK 

20 All ».J1 S A( I * J ) .+ 8 ! I «.L! *€ ( L« .4.1 
RETURN 
END 


00000010 
00000020 
00000030 
00000040 
00000050 
OCO0GO6O 
00000070 
00000080 
0 CO 00090 
000001 CO 
ooodono 
00000120 


SUBROUTINE MXV I A ,BtCtMtK, NO I M, ICONT) 

MATRIX TIMES VECTOR A( M i*BI M, N) *CLN I 

+A( M ) 

DI MENSION AIM »B CNDIM, 1 ) , C<1 ) 

DO 10 

IF (ICONT. EC. 0) AC.n*0 
DO 10 4-1 »N 

10 A m=AM)+BC 1, 41 =♦€ <41 
RETURN 
END 


00000010 
00000020 
FOR ICONT - 000000030 
FOR ICONT =1 00000040 
00000050 
00000060 
00000070 
00000080 
000000 SO 
000001 00 
00900110 
00000120 


\ 
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SUBROUTINE OUTP (T , YV ,DERY , IHLF, MDIM, PRMT,LY) 

REAL M,KM1,KM2,KA - 

LOGICAL LYC1) 

REAL DATA C6),DATAT<3) 

DIMENSION Will, DERYC1 1 *PRMT III 

COMMON /I ND AT /X (20) *M (201 ,E<20 ) ,SEA(20) *KM1C 20) , KM2C 20 ),KAC 20) , 

1 THP (2 0) *EGP C20) * G J C 20 ) * £ A 1 2 0 ) t E B1 C 20 ) , EB2C 2 G ) * ECS < 20) , E IP 120 ) t 

2 THG *8 PC *YPP <20 ,3 ) ,YP<20,3) ,ZPPC20, 5 ), ZPC20, 5 ) ,PPP < 20, 3 >,PP ( 20*3) 

3 OMEG *OMF ,ECC20 ) ,NY,NZ ,NP,NP, CMEGS, GMFS, I01M, NMAX,NL IN 
4* NB iHMXfHMY ,HMZ, HCX ,HCY ,HCZ , HKX, HKY, HKZ, NX ,NFLOQ 

5 ,HI NI T *E RROR * I YE ,CIC * IY I C» BERR *CYCLES ,NXF, AFY, AFZ, A FP ,NBF 

6 ,R,GV,Gto *G P,HE C3) ,PER 

C 0 MMON /HE 0 / 1 Cl * I C2 , IC3 , IC4, HEACC 19), IP AGE, INPUT < 20 ), IEND ,L INE , ICS 
IF CNF LOO* NE* 0) REJURN 
C YCF = T*0MF/6.28319 
CYCR = T*OMEG /6 *28319 
C YCRP=C YCR*360. 

NCYCF=C YCF 

NO YC R?=r vr R 

DEGF = <CYCFHFLGATINCYCF))*360* 

DEGR = C C YCR~FLG AT C NCYCR ) ) #360 • 

LI NE = LI N£+NMAX*NE+1 
IF CN8.GT.1 )L INE= II NE+N8 
I F CNMAX.GT.l I LI NE=Ll NE+N8 
IF CL Y C 1 ) . OR* LY C3 J • OR. LY C 5 ) ) L I N E=L IN E+2 
IF ( LI NE#GT* 56) LINE=10 
GC TO 50 


IF(LINE.GT.IO) 

CALL HEAD IN 
PRINT 1000 

1000 FORMAT C /119H TIME 
i ZCDOOT 

2) / 26H SEC CY DEG 
50 DO 110 I B=1 * NB 
Iir=2*NM*eiB~l)+9 
DA TAT 111=0 
DATA T (2 ) =0 
D ATAT C3 ) -=0 
DO 100 1=1 *N RAX 
DO- 90 J=l ,6 

90 DATAC J)=0 

IF C NY. LT. I ) GC TO 91 
1 1 =11 1 + 2*1 
DATA* (1 1 = YV C I 1 ) 

DATA 12) = YV C 1 1 +1 ) 

DATA TCI ) = D AT AT Cl l + DAT AC 2) 

91 IFCNZ.LT.n GO TC 92 
1 I =11 1 +2* C 1+ NY) 

DATA C3) = YV <1 1 ) 

DATA C4 ) = YV Cl 1+ 1) 

DA TAT (2)=D AT AT <2 ) + DATAC4) 

92 IFCNP.LT. I) GO TC 93 
1 1 =1 1 1 + 2* C 1 + NY+NZ) 


OMF 

CY 


OMEGA 


zt n 

* DEG 


YCUDOT 
P H’tC I ) DOT 


Y(I 
PHI C 


00000010 
0 CO 00020 
00000030 
00000040 
00000050 
00000060 
0 CO 00 070 
* 00000060 
00000090 
000001 CO 
00000110 
00000120 
00000130 
00000140 
000001 50 
000001 60 
000001 70 
000001 80 
000001 90 
000002 CO 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
000002 70 
000002 80 
00000290 
) 000003 CO 
100000310 
00000320 
00000330 
00000340 
0(10003 50 
00000360 
00000370 
000003 80 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
000004 50 
00000500 
0C0005 10 
00000520 
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DATA (5) =YVni) 

DATA 46) "YVIII+lt 
DATAT43J - OAT AT (3 )-frDATA<6) 

93 IFCI.GT.U GC TO 95 
IFCNB.EC.l) GO TG 94 

IFUB.EQ.l) PRINT 1004 »T,NCYCF , DEGF,NCYCR, DEGR 
IFUB.GT.l I PRI M 1005,18 
GO TO 95 

1004 FORMAT < /l X *F6. 3 ,2 < 14 , F6 « 1 1 » 1QH *BLADE 1*) 

1005 FORMAT <27X,7H * EtADE , 12, 1H* I 

94 PRINT 1010, T,NC YCF,CEGF,NCYCR, DEGR, I, DATA* 

1010 FORMAT 4/lX,F6.3 ,2 <14 , F6. 1 ) , 1 3, 3C iPE12*3, E13*3, 8X1 I 
GO TO 100 

95 PRINT 1020, I, DATA 

1020 FORMAT <2 OX , 110 , 3 < 1 PEI 2*3 ,El 3 ,3 ,8X I ) 

1.00 CONTINUE 

IF(NMAX.GT.l) PRINT 1021, DAT AT 

1021 FORMAT 447X , 1PE1 3. 3 , 20 X ,E 13. 3 , 20X, E13. 3 1 

IFCIC5* N£*0* AND* IB* EQ* 11 WRIT €19) CYCR P, DAT. AT , YV< 2 I , Y V< 4 I , YV < 6) 
110 CONTINUE 

iF4LY-(l.)*OB«LY(3).«CR*LY(5l} PRINT 10 25 , ( YV (L ), L-*'lt 6 I 
1025 FORMAT! /4 X,2 6 HHUB XDOT,X, YDCT,Y, ZDOT,Z , 3< IP E'12.3 , £13.3, 8X II 
IF < PRMTI6 I • EG.O > GO TO 200 
IF < ABSC YV(IYEIKLT.PRMTC6I I GO TO 200 
PRINT 1030 

1030 FORMAT X//24H *** LIMIT EXCEEDED *** //I * 

PRMT 151 =1 
200 RETURN 
ENO 


00000530 
00000540 
00000550 
00000560 
00000570 
00000580 
00000550 
00000600 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00000680 
00000690 
00 000 7 CO 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00000750 
0GGGO8CO 
00000810 
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SUBROUTINE S C L ( PRMT , YV AR, DERY , I HLF, LY ) - 00000010 

INTEGER IR0WI31) ,IC0L(3i) 00000020 

LOGICAL LY(l) 00000030 

REAL PRMT(l) ,YVAR(l J ,OERY(ll 00000040 

REAL AUX(8,98» ,BFTEMP( 11) ,ERW (36), FLTMI 30,31), FLTM I ( 30,31 ) , 00000050 

1 W0RK<30,3 1) 00000060 

REAL HFTEMPI3) »FRTEMP(11) 00000070 

COMMON/I N0AT/X(20) , M ( 20 ) , E( 20 ) ,S EA( 20) ,KM 1< 20 ) , KM 21 .20 ) , KA ( 20) , 000000 80 

1 THP ( 20) »EOP 120) ,G J ( 20 ) ,E A( 20 ) , EBl ( 20) , EB2( 20 ) , ECS ( 20),EIP(20), 00000090 

2 TH0,BPC,YPP(20,3) ,YP(20,3) ,ZPP(20,5 ),ZP(20, 5 ) , PPP ( 20, 3 ) ,PP ( 20 , 3) ,00000100 

3 OMEG ,OMF »EC(2Q)»NY,NZ»NP,NM,CMEGS»0MPS» IOIM, NNAX , NL IN 00000110 

4,NB,HMX,HMY,HMZ,HCX,HCY,FCZ,H<X,HKY,HKZ,NX,NFL0Q 00000120 

5 ,HINIT,ERR0P,1YE,CIC,IYIC,BERR .CYCLES , N XF, A FY, A FZ, AFP ,NBF 00000130 

6 ,R,GV,GW ,GP,HE (3) .PER 00000140 

COMMON /CQEF/CGI (11 ,11 ) ,CCOI< 11, 11) ,C00( 11,11 ),DCQB( 11, 111, 00000150 

1 CO (11,11) .OCCIll ,11 ) .Fill) ,CF(11),FNL( 11),C0IR( 11,12), 00000160 

2 CODR (11 ,11) ,CCR( 11 ,11) ,FR( 11 ), R IOC( 11, 12) , BF( 11 ) 00000170 

3 ,BI N (3 ,11) , BDAM (3 ,11 ) , BS PR ( 3 , 11 ) , CO IH( 11, 3) , CO 0H( 11, 3 ) , B IR I ( 3 ,11 ) 000001 80 

4,BIRID(3,11) ,BIRIC(3,11),BIRICH(3,3 ), HF( 3), TM 1 3, 3 ) , B IR IIHI 3, 3 ) 00000190 

5 ,HC (3,3) ,HK(3,3) . 00000200 

C0MM0N/HED/IC1 ,IC2 ,IC3 , IC4.HEACI 19 ), IP AGE, INPUTI20), IEND.L INE , IC 5 00C00210 
COMMON/DIM/NINPUT,NSTA,NYMCDE, AZ MODE, N PMODE, NMO DE, NM1 , ND IM .NBLADE 00000220 
X0MMON/0ER/TH(20) , EV ( 20 ) , EW ( 20 ) , £P ( 20 ) , Y ( 20, 3 ) , Z ( 20, 5 ) ,P ( 20, 3 ) 00000230 

EQUl VALENCE (AUX(i) »WCRK(1) ) 000002 40 

IF (NF LOQ. E Q. 0) CALLRKGSV (PRMT , YV AR, CERY, I DIM, IHLF.AUX.LY ) 00000250 

IF(NFLOQ.EC-O) RETURN 000002 60 

NVAR=0 0 0 0 002 70 

DO 10 I =1,1 DIM 000002 80 

IF(LYdl) NVAR=NVAR+1 00000290 

10 ERKU )=DERY(I) 00C003C0 

I F ( N VAR . G T .30) CALL ERR (5010,0) 00000310 

DO 20 1=1,11 00000320 

BFTEMP ( I ) =BF (I ) 00000330 

FRTEMP(I) = FR(I) 00 0 0 03 40 

FR (I ) =0. 00000350 

20 BF ( I ) =0. 00000360 

DO 25 1=1 ,3 00000370 

HF TEMPI I ) =HF (I ) 00000380 

25 HF(I 1 =0. 00000390 

PRMT2 =PRMT (2 ) 000004 CO 

PRMT (2) =PRMT2/ CYCLES 00000410 

CALL HEADIN 00000420 

PRINT IQOO.P-R'M-T 121' 00000430 

1000 FORMAT ( //30X ,43HFL0QUET TRANSITION MATRIX P ER IOD{ SEC ) = 00000440 

l ,F12.5//> 00000450 

11=0 00000460 

; NC REPITION CF SCLUTICNS FCR MULTIPLE BLADES 00000470 

NM2 = NM+NM 00000480 

IEB- = 10+NM2 00000490 

DO 100 1 = 1,1 Cl M 000005 CO 

IFC.NOT.LYd )) GC TO 100 00000510 

11=11+1 / • 00000520 
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IFU.GT.IEBI GG TO 101 

0 0 3 0 J=1 tlOIF 
D£RY( J)=ERN< J) 

30 Y VAR C J) =0 
YVARUMU 

CALL R KGS VC PRMT » VV AR »OERY *1 0 IN# IHLF, AUX,LY ) 
IFUHLF.EQ.il) CALL ERR (5030,01 
IFUHLF.EG.12I CALL ERR C 5031,0) 

IF ( IHLF.GT .12) CALL ERR <5032,01 
JJ=0 

DO 50 J=1 ,IDIP 
IF (.NOT. LYCJJI GC TO 50 

FLTMI.JJ ,1 1 I- WAR ( J| 

50 CONTINUE 

PRINT 1.010*1 ItiFiTMU j,IlJ ,JJ=l,NVAR) 

1010 F GRMAT ( 1 X, 1 3 ,1 P10EI2 .3 / (4X , 10 E 12.3 1 ) 

ICO CONTINUE 
GO TO 109 

101 101 = II-NM2 

1 Oil = IDl-1 
I GDI =11 

DO 103 JB * 2 , MB 
DO 108 J = l MHZ 
4J = ID11MJB-1)*NM2*J 
JREF = IDll+J 
IF (IDll.EG.O) GO TO 103 
00 102 1 = 1 ,1011 

102 FLTMCI ff JJ) = FtTMI,JJ-NM2> . 

103 DO 107 IB = 1,NB 
I REF = I GDi-1 

IF ( IB.EQ. J8I IREF » 1011 
DO 107 I = 1 ,NM2 
M « IDU + M8-1) *NM2+I 
1 07 FLTMU I ,4 J) = FLTM UREF+I , JREF) 

PRINT 101 0 *J J, (F LTMC 1 1 , JJ ) , 1 I=1,NV AR) 

108 CONTINUE 

109 CONTINUE 

DO 110 J=1 , 1 DI R 
DERY ( J) =ERW(J> 

110 YVAR ( J) =0 

DO 120 J=l,ll 
IFCNFL0Q.EC.2) GC TO 120 
FR(J)=FRTEMi*(J) 

12 0 BF{ J)=BFTEMPU) 

DO 125 1=1,3 
125 HF (I I =HF TEMP II ) 

IF (INPUT (13). NE. 0) GO TO 115 
IF (LY (II .ANC.HFTEPP(l).KE.O) GO TO 115 

IF (LY(3) . ANC.HFT ERPC 2) .NE.O ) GO TO 115 

IF (LY 15) . ANC.HfTEJ'P<3).AE.Q) GO TO 115 

RETURN 

115 CALL RKGSVC PRMT , YVAR,DERY , IQ IP, IHLF, AUX, LY ) 
DO 130 1=1 ,NVAR 
130 FLTMiI,I)=FLT*HI ,I)-i. 


00000530 
00000540 
00000550 
00000560 
00000570 
00000580 
00000590 
00000600 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00000680 
00000690 
000007 CO 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00000790 
00000800 
00000810 
00000820 
00000830 
00000840 
00000850 
00000860 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
OCOOIOOO 
00001010 
00001 020 
0C001030 
00001040 
00001050 
0C001060 
00001070 
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CALL INVRS<FLTM,AVAR,FLTMI,WCRK, I ROW , I COL# 30, 311 
11=0 

DO 140 1=1, I DIP 

I F ( * NOT • L V II ) | GC TO 140 

n-M+i 

YVARII1 l-YVA R( I } 

140 CONTINUE 

PRINT 1 020 ,( YVAR (11 *1= 1 , NVAR ) 

1020 FORMAT < //30 X, 19 HP ART I CULAR SOLUTION /I4X, IP 10E1 2.3 )) 
CALL MXVIDERV ,FLTMI , YV A R , NV AR , NV AR, 30, 01 
11=0 

DO 150 1=1 , I DI P 
YVARI I I =0* 

IFUNGT.lYim GC TO 150 
11 = 11+1 

YVARUJ^DERVUI J 
150 CONTINUE 

DO 160 I =1 ,1 Cl P 
160 DERY ( l ) =E RWI I ) 

PRMT (2 > =PRMT2 

NFLT=NF LOQ * 

NFL0Q=0 

CALL RKGSVI PRMT, YVAR, DERY, ID IP, IHLF# AUX»LY I 
NFLOQ=NFLT 

IFINFLGQ.NE.2) RETURN 
DO 170 1=1 ,11 
170 BF < I } =BFTEMP (I ) 

RETURN 

END 


00001080 
00001090 
000011 GO 
00001110 
00001120 
00001130 
00001140 
00001150 
00001160 
00001170 
00001180 
00001190 
000012 00 
00001210 
00001220 
00001230 
00001240 
000012 50 
00001260 
00001270 
000012 80 
00001290 
00001300 
00001310 
00001320 
00001330 
00001340 
00001350 
00001360 
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SUBROUTINE RKGSyCPRMT , Y ,DERY , NC IM, IHLF, AUX,LY ) 

SUBROUTINE RKGSV 

MODIFIED TC INCLUDE CPT IONAL COMPUTATION OF EACH Y(I> 

FCT , OUT P REMOVED FROM ARG LIST, THUS NO EXTERNAL STMT REQO 
PURPOSE 

TO SOLVE A SYSTEM OF FIRST ORDER ORDINARY DIFFERENTIAL 

EQUATIONS KITH GIVEN INITIAL VALUES* 

USAGE 

CALL RKGSV { PRMT ,Y, DERY , NO IM, IHL F, FCT, GUTP, AUX,L Y > 

PARAMETERS FCT AND OUT P REQUIRE AN EXTERNAL STATEMENT* 

DESCRIPTION OF PARAMETERS 

PRMT - AN INPUT AND OUTPUT VECTOR WITH DIMENSION GREATER 
OR EQUAL TO 5, WHICH SPECIFIES THE PARAMETERS OF 
THE INTERVAL AND OF ACCURACY AND WHICH SERVES FOR 
COMMUNICATION 6ETWEEN OUTPUT SUBROUTINE i FURNISHED 
BY THE USER) AND SUBROUTINE RKGS • EXCEPT PRMT (51 
THE COMPONENTS ARE NOT CESTROY £ C BY SUBROUTINE 
RKGS AND THEY ARE 

PRM Till — LOWER BOUND OF THE INTERVAL (INPUT), 

PRMT (2 )- UPPER BOUND OF THE INTERVAL (INPUT), 

PRMT (3 INITIAL INCREMENT OF THE INDEPENDENT VARIABLE 
(INPUT), 

PRMT (4 ) ~ UPPER ERROR BCUND (INPUT)* IF ABSOLUTE ERROR IS 
GREATER THAN PRMT (4), INCREMENT GETS HALVED. 

IF INCREMENT IS LESS THAN PRMTI3) AND ABSOLUTE 
ERROR LESS THAN PRMT(4)/50, INCREMENT GETS DOUBLED 
THE USER MAY CHANGE PRMT! 4 ) BY MEANS OF HIS 
OUTPUT SUBROUTINE. 

PRMT (5 )^ NC INPUT PARAMETER. SUBROUTINE RKGS INITIALIZES 
PRMT (5 ) -0 * IF THE USER WANTS TO TERMINATE 
SUBROUTINE RKGS AT ANY. OUTPUT POINT, HE HAS TO 
CHANGE PRMTC5) TC NON-Z ERO BY MEANS OF SUBROUTINE 
GUTP. FURTHER COMPONENTS OF VECTOR PRMT ARE 
FEASIBLE IF ITS DIMENSION IS DEFINED GREATER 
THAN 5. HOWEVER SUBROUTINE RKGS DOES NOT REQUIRE 
AND CHANGE THEM. NEVERTHELESS THEY MAY BE USEFUL 
* FOR HANDING RESULT VALUES TO THE MAIN PROGRAM 

(CALLING RKGS) WHICH ARE OBTAINED BY SPECIAL 
MANIPULATIONS WITH OUTPUT DATA IN SUBROUTINE QUTP. 

Y - INPUT VECTOR OF INITIAL VALUES. ( DESTROYED) 

LATEPON Y IS THE RESULT ING VECTOR OF DEPENDENT 
VARIABLES COMPUTED AT INTERMEDIATE POINTS X. 

DERY - INPUT VECTOR OF ERROR WEIGHTS. (DESTROYED) 

THE SUM OF ITS COMPONENTS MUST BE EQUAL TO 1. 
LATERCN CERY IS THE VECTOR OF DERIVATIVES, WHICH 
BELONG TO FUNCTION VALUES Y AT A POINT X. 

NDIM - AN INPUT VALUE, WHICH SPECIFIES THE NUMBER OF 
EQUATIONS IN THE SYSTEM. 

IHLF - AN OUTPUT VALUE, WHICH SPECIFIES THE NUMBER OF 




Sf 


OOOGQQIO 
00000020 
00000030 
0C000040 
OCO 00050 
00000060 
00000070 
00000080 
00000090 
00000100 
OOOOOilO 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000180 
0000.0190 
00000200 
00000210 
0GQ0022G 
00000230 
00000240 
000002 50 
00000260 
00000270 
•00000280 
.00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00QC0390 
00000400 
00000410 
00Q00420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
0000(34 90 
00000500 
00000510 
00000520 
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BISECTIONS OF THE INITIAL INCREMENT, IF I HLF GETS 
GREATER THAN 10, SUBROUTINE RKGS RETURNS WITH 
ERROR MESSAGE I HLF- 11 INTO MAIN PROGRAM, ERROR 
MESSAGE IHLF=12 OR THLF-13 APPEARS* IN CASE 
P RMT (3 ) =0 OR IN CASE S I GNC PRMTC 3 H .N E . S IGN( PRMT< 2) < 
PRMT <1 ) ) RESPECTIVELY, 

- THE NAME OF AN EXTERNAL SUBROUTINE USED. THIS 
SUBROUTINE COMPUTES THE RIGHT HAND SIDES OERY OF 
THE SYSTEM TO GIVEN VALUES X AND Y. ITS PARAMETER 
LIST MUST BE X ,Y , DERY , LY SUBROUTINE FCT SHOULD 
NCI DESTROY X ANC Y, 

- THE NAME OF AN EXTERNA OUTPUT SUBROUTINE USED. 

ITS PARAMETER LIST MUST BE X, Y, C ERY , IHLF,ND IM,PRM T 
LY 

NCNE OF THESE PARAMETERS (EXCEPT, IF NECESSARY, 
PRMT <41 , PRMT (5 ), .., ) SHOULD BE CHANGED BY 
SUBROUTINE OUTP. IF PRMT < 5) IS CHANGED TO NON-ZERO 
SUBROUTINE RKGS IS TERMINATED. 

- AN AUXILIARY STORAGE ARRAY WITH 8 ROWS AND NDIM 
CCLUMNS. 

LOGICAL ARRAY ,IF.TRUE. CORRESPONDING Y< II 
IS CALCULATED 


THE PROCEDURE TERMINATES AND RETURNS TO CALL IMG PROGRAM, IF 
U1 MORE THAN 10 BISECTIONS OF THE INITIAL INCREMENT ARE 
NECESSARY TO GET SATISFACTORY ACCURACY (ERROR MESSAGE 
I H LF- II) , 

(2) INITIAL INCREMENT IS EQUAL TO 0 OR HAS WRONG SIGN 
< ERROR MESSAGES IHLF*I2 OR IHLF=13), 

13) THE WHCLE INTEGRATION INTERVAL IS WORKED THROUGH, 

14) SUBROUTINE OUTP HAS CHANGED PRMT ( 5 ) TO NON-ZERO. 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
THE EXTERNAL SUBROUTINES FCT (X ,Y , DERY ) AND 

QUTP<X,Y, DERY, IHLF, NDIM, PRMT ) MUST BE FURNISHED BY THE USER 
ME THOD 

EVALUATION IS DONE BY MEANS OF FOURTH ORDER RUNGE-KUTTA 
FORMULAE IN THE MODIFICATION DUE TO GILL. ACCURACY IS 
TESTED COMPARING THE RESULTS OF THE PROCEDURE WITH SINGLE 
AND DOUBLE INCREMENT. 

SUBROUTINE RKGS AUTOMATICALLY ADJUSTS THE INCREMENT DUR ING 
THE WHOLE COMPUTATION BY HALVING OR O0UBL IN’Gv IF MtDR r E THAN 
10 BISECTIONS OF THE INCREMENT ARE NECESSARY TO GET 
SATISFACTORY ACCURACY, THE SUBROUTINE RETURNS WITH 
ERROR MESSAGE IHLF=ll INTO MAIN PROGRAM. 

TO GET FULL FLEXIBILITY IN OUTPUT, AN OUTPUT SUBROUTINE 
MUST BE FURNISHED BY THE USER. 

FOR REFERENCE, SEE 

RALSTON/ WILF, MATHEMATICAL METHODS FOR DIGITAL COMPUTERS, 
WILEY, NEW YORK/ LONDON, I960, PP. 110-120. 


FCT 

OUTP 


AUX 

LY 

REMARKS 


00000530 
00000540 
00000550 
00000560 
00000570 
00000580 
000005 SO 
00000600 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00000680 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00000790 
00000800 
00000810 
00000820 
000008 30 
00000840 
00000850 
00000860 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000 S 80 
0 CO 00 9 SO 
OOQOIOCO 
00001010 
00001020 
00001030 
OGOOI 040 
00001050 
,00001060 
00001070 
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SUBROUTINE RKGSV (PRMT »Y , DERY ,ND |M, IHLF, FCT ,3UTP * AUX ,L Y ) 


DIMENSION V <1 ) »DERY<n *AUX (8 ,1 } , AC 4} f B( 4 ) , Cl 4 i , PRMT< 1 ) 
LOGICAL LYU) 

DO 100 1 = 1 f NCIP 

100 AUX(8,I) =.06666667*0ERYtI) 

X=PRMTU) 

XEND=PRMT < 2) 

H-PRMT { 3 ) 

PRMT (5) “0* 

CALL FCT(X,Y,DERY t LY,NCIM) 

ERROR TEST 

IF <H*(XEND~X) J47 0,460, llO 

PREPARATIONS FOR RUNGE-KUTTA METHOD 
110 A ( 1 } ~* 5 

A ( 2) =*2928932 
A C3 J =1 #7071 G7 
A<4|=. 1666667 
B(1J=2. 

8 (2) =1 ♦ 

B(3) = U 
8 14) =2. 

C < 1 ) = • 5 
C ( 2) =• 292893 2 
C <31 ~i • 707107 
C <4J =• 5 

PREPARATIONS OF FI RST RUNGE-KUTTA STEP 

DO 120 1 = 1 ,NCI P 

IF <• NOT* LY ( I ) } GC TO 120 

AUXUtI) = Y<I) 

AUX42 ,X ) -OERYII1 
AUX<3 » I J =0* 

aux(6*ii=o* 

120 CONTINUE 
I REC=0 
H=H+H 
IHLF=~1 
I STE P=0 
IEND=0 


START OF A RUNGE-KUTTA STEP 
130 I F H X+H — XE NO ) *H! 160 »150 1 140 
140 H =XE ND— X 
150 I END-i 

RECORDING OF INITIAL VALUES CF THIS STEP 
160 CALL OLTP ( X » V ,DERY * I REC »ND IM* PRMT t LY I 
IF(PRMT(5) )490,1 70*490 
170 I TE ST=Q 
180 I STEP = I STEP+1 


00001080 
0QQ01Q90 
00001100 
00001110 
00001120 
00001130 
00001140 
00001150 
00001160 
00001170 
000011 80 
000011 90 
00001200 
00001210 
00001220 
00001230 
00001240 
000012 50 
00001260 
000012 70 
00001280 
00001290 
0000130 0 
00001310 
00001320 
00001330 
00001340 
000013 50 
00001360 
00001370 
000013 80. 
000013 90 

00 001 4 CO 
00001410 

00001 420 
00001430 
00001440 
00001450 
00001460 
00001470 
00 0014 80 
00001490 
00001500 
00001510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
00001 5 80 
0C001590 
00001600 
00001610 
00001620 
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START OF INNERMOST RUNGE-KUT T A LOOP 
J=1 

190 A J“A< J) 

CJ<( J) 

00 200 1= 1 » NCI M 

I F (* NOT* L Y < I ) ) GC TO 200 
Ri=H*oeRy(n 
R2=AJ$(R1— BJ*AUX(6 , I ) ) 

YU)=YU) + R2 
R2=R2+R2+R2 

AUX(6 ,I)=AUX{6 ,I)+R2~CJ*Ri 
200 CONTINUE 

IF (0-4)210,240,240 
210 J=J+1 

1 F (J— 3) 220 ,230 ,2 20 
220 X=X*„5 *H 

230 CALL FCT<X,Y,D£RY,LY,NCIM> 

'GO TO 190 

END OF INNERMOST RUNGE-KUTTA LOOP 
TEST OF ACCURACY 
240 IF (I TEST) 250 ,250 , 290 

IN CASE I TEST-0 THERE IS NG POSSIBILITY FOR TESTING OF ACCURACY 
250 DO 260 l=i,NOIM 

IF ( LY (I ) ) AUX (4*1 ) = YU) 

260 CONTINUE 
I TE ST-1 

I STE P-I STEP* I STEP— 2 
270 IHLF-IHLF+l 
X=X— H 

H=.5*H . < . - 

DO 280 1=1 vNOl M 
I F (* NOT. LYC I I) GC TO 280 
Y<n*AUXUfT) 

D ERY (11 « AU X 1.2 « II 
A UX (6 *1 ) =AUX (3*1) 

280 CONTINUE 
GO TO 180 

IN CASE I T E S T= 1 TESTING OF ACCURACY IS POSSIBLE 
290 I HOD=I STEP/2 

IF IT STEP- 1 MOC-rMCD) 300 ,320, 300 
300 CALL FCTC X» Y ,OER Y, LY » NOIMI 
DO 310 I =1 ,NOI M 
IF (• NOT* L Y(I ) ) GC TO 310 
AUX (5 ,1 l-YH ) 

AUX (7 *1 l-DER Y( I) 

310 CONTINUE 
GO TO 180 

COMPUTATION OF TEST VALUE DELT 
320 DELT=0. 

DO 330 I =1 , NCI M 
I F (» NOT* LYII ) ) GC TO 330 


00001630 
00001640 
00001650 ' 
00001660 
00001670 
00001680 
0 0001690 
00001700 
00 001710 
00001720 
00001730 
00001740 
00001750 
00001760 
00001770 
00001780 
00001750 
00001800 
00001810 
00001820 
OOCOl 830 
00001 840 
00001850 
00001860 
00001870 
00001880 
00001850 
00001900 
00001910 
00001920 
00001930 
00001940 
00001950 
00001960 
00001970 
00001980 
00001990 
OC002000 
0G002010 
00002020 
0C002030 
0G0Q2Q40 
0C002 050 
00002060 
00002070 
00002080 
00002050 
00002100 
00002110 
00002120 
00002130 
00002140 
00002150 
00002160 
00002170 
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DELT=DELT+ AUX(8,I)*ABS <AUX<4, II-YI II ) 
330 CONTINUE 

I F (DE LT-PR MT 14)) 370 ,370,340 
C 

C ERROR IS TOO GREAT 

340 IF IIHLF— 10)350, 450, 450 
350 DO 360 1=1 ,NDIM 

I F (LY (I 1 1 AUX C4 ,1 )= AUX (5,1 J 
360 CONTINUE 

I STE P=I STEP+ISTEP-4 
X=X-H 
I END=0 
GO TO 270 

RESULT VALUES ARE GGGD 
370 CALL FCT<X,Y,DERY f LY,NDIM> 

DO 380 1=1, NCIM 
IF (• NOT ■ L Y { I )) GC TO 380 

Auxu,n=Ycn 

A UX (2 «U~DEf*YU) 

AUX(3,n=AUX(6,I ) 

Y M J =AUX 1 5 , 1 ) 

DERY(I)=AUX{7,I) 

3 80 CONTINUE 

CALL GUTP ( X-H , Y ,CERY , I HLF, ND I M, PRMT , LY I 
I F (PRMT (5 }) 490 ,390,490 
390 00 400 1 = 1 , NDI M 

I F (• NOT* LY ( I ) ) GC TO 400 
Ym=Auxii,n 
0ERY(I)=AUX(2,I) 

400 CONTINUE 
I REC=IHLF 

IF (I END 1 41 0 ,410,480 

INCREMENT GETS DCUBLED 
410 IHLF=IHLF~1 
I STE P=I STEP/2 
H=hM*H 

IF(IHLF)130 ,420,420 
420 IM0D=ISTEP/2 

I F(I STEP— I MGC-IMCD) 13 0,430, 130 
430 IF {DELT-.Q2*PRNT (4) >440,440, 130 
440 IHLF=IHLF-l 
I STE P=I STE P/ 2 
H=H+H 
GO TO 130 

RETURNS TO CALLING PROGRAM 
45C IHLF=li 

CALL FCT(X,YfDERY,LY,NCIMJ 
GO TO 480 
460 I HLF =12 
GO TO 480 
470 I H LF =1 3 

480 CALL GUTP(X,Y,DERY,tHLF,NDIM,PRMT,LY) 


000021 SO 
00002190 
00002200 
00002210 
00002220 
00002230 
000022 40 
000022 50 
0 0 0 02 2 60 
000022 70 
00002280 
000022 90 
000023 CO 
00002310 
00002320 
00002330 
00002340 
.00002350 
00002360* 
000023 70 
00002380 
00002390 
00002400 
00002410 
00002420 
00002430 
00002440 
00002450 
00002460 
00002470 
00002480 
00002490 
00002500 
00002510 
00002520 
00002530 
00002540 
00002550 
0 0 0 02 5 6 0 
00002570 
00002580 
00002590 
00002600 
00002610 
00002620 
00002630 
30002640 
0 0 0 02 6 5 0 
00002660 
03 002 6 7 0 
00002680 
00002690 
00002700 
00002710 
00002720 


490 RETURN 
END 


00002730 
00002 740 
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SUBROUTINE $ LMCQ E ( A V Q T PHI , NS T 4, NX,N) 

MODAL SUMMATION NST A* C I MENS ION NX* NO OF STATIONS 

J” N 

Ain = SUMIQC I, JH 

0 = 1 

REAL All ) t QI I) t PHI (NST 4,1 ) 

DO 10 1*1 ♦ NX 
A M ) =0* 

DO 10 J*1 V N 

10 A(I)*Am + Q( JI*PHI (If 4 ) 

RETURN 

END 


00000010 
N*NO OF MO DO 0000020 
00000030 
00010040 
00000050 
00000060 
00000070 
0 GO 00 080 
00000090 
000001 00 
00000110 
00000120 
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£ ## 2^ 3& & & #& 2$C# && $'#.$$ j$0& ## &#$# £< # &##2fc J§C& $ $ $ ❖ ### #S§C # & & # # ## # & 

c ROT SI ROTS! ROTS! ROTSI 

— G_ — — RO¥0R~^YST6-H~1 DE NT-—- 1 NCOMPL ETE -MO OJEfc - 

£ # #4*# #*& &:«:# ## 4# ** #* # 4 # .jc **4 44444444444 

C • 

— c 1 NP-U-T- — — — — -— - — — — ______ — 

C — COL 

C ’ • ■ 

G u 1 H EADI NG > — 1 ICI—.E Q -0 — F4 RST -OR-NORM AL---R-U N— — Abb — I H P UT 

C i REPLACE MOOES - INPUT 3» 4, 5 

C 2 ADD MOOES - INPUT 4,5 

G_~- ______ — : — ; 

C • 8 NEW OP COOE ONLY - INPUT 5 

C 9 END OF RUN - LAST CARO OF RUN 

£ , — : : — 

C 2 IC2 »EQ»1 PRINTS ORTHO CHECKS 

C 2 ANO NORMALIZES MODES 

G -NO T E — M 0 D E S--AR E~ R E P L A CEO 

C AFTER INPUT AND AFTER 

• C RANDOM ERRORS. 

G : — r— — — 

C 3 !C3 ®NE»Q PRINTS EQS FOR MASS IDENT 

. C . ' ■ . 

— £ — — — -4~--IG-4-- 6 N £-„■ 0 — R ES TOR £ S IN PUT-MO D E S»— I P-IC 1 * EQ , S 

C 

C 5-80 ARBITRARY HEADING HEAD! 193 

G— ~ — — — — — — ~ 

C 121 MASS OATA - ONE CARD PER BLADE STATION 20 MAX 

C - . V: v : ,.v'.- v 

— c_ — -i-io — X I i-l-sr AMGN- — 

C ' U * 1 SEE NOTE I WH 

C 12-20 M - LUMPED MASS 

G ■ : 21 f SEE NOTE 1- WE- - 

C . 22-30 E - CG OFFSET FROM EA ♦ WHEN CG FORWARD 

C 31 * I SEE NOTE 3 WT 

G_ — — : 3 2 —40- — T H — P I TC H- AN GL 5 R AD — 

C 41 * 1 SEE NOTE) WK 

C • 42-50 KM RADIUS OF GYRATION IN TORSION 

G — -- — ~ — — — ~~ — 

C 4 I ST COL OF EACH WORD CONTAINS WEIGHTING FACTOR 

C FROM 1-9 10=1) HIGHER VALUE INDICATES GREATER CONFIDENCE 

„C — — SEE— 101 — ——3 — WOt- — — — - — — 

C 

C END WITH BLANK CARD 

G__ _ — — — — ■ — ■ — - — — — - 

C 13) CONTROL CARD - MODES 

C - > 

— C — — 4*10 — C-AMP- MUL-TIPLI E$r -4-P -MO D E - DEFL- — fQ—l ) — - 

C • 11-20 CALM MULTIPLIES Q-P MODE DEFL <0=13 

C ‘ 21-30 CALP MULTIPLIES TOR MODE DEFL <0=11 

G- — — 3 1-40 — T-HO -R GOT— P I T C H~AN GL E— R A D 

C ADDS TO TH - 1 TH NOT CHANGED) 

C 



o o 


<4) MODES 


STATIONS CORRESPOND TO MASS DATA 



EACH MODE 1-13 FREQ NATURAL , RAD/SEC 

11-20 OMEG ROTATIONAL, RAO/SEC 

— 2 1.-30 -4F-„N£. - 0 . 1 EMPORAR 1 L Y- R E PL ACE S CACV- 

31-40 IF .NE. 0 TEMPORARILY REPLACES CALM 
41-50 IF »N6» 0 TEMPORARILY REPLACES CALP 


NEXT CDS V I-P DISPLACEMENTS, 8F10. UP TO 3 CARDS 

NEXT CDS W O-P START DN NEW CD 

HE XT- CD S- P — TOR- — — — 

FOLLOW BY NEXT MODE - 8 MODES MAX AT ONE OMEG 

„ — — —16- MODE S—M AX-— AT- ALL-OME-G 

*** 30 jfQS MAX (NOT 1NCL INVARI ANCES) *** 

E NO- -WITH-- B LANK— C A RO — — — — — : 


OPERATION CODES COL 1,2 101,102 

COL 1 - I 01- ~~ — 


- 1 MOD If Y— MODE S— WI T R- R ANDOM - ERRORS — — MODE S-- REPLAC ED — 

WDI PERCENT RANDOM * OR - RECTANGULAR DIST 

WD2 --PERCENT BIAS - — — — - - --- 

WD3 INTEGER SEED TO START RANDOM SEQUENCE 

— ***- FOLLOW -BY- NEXT- OP HR AT ION- CARO (51- ***-- 

2 SOLVE FOR MINIMUM MODAL CHANGES - MASS MATRIX UNCHANGED 


ALL MCOES MUST BE AT SAME OMEGA - 8 MAX 
FIRST MODE UNCHANGED, LAST MODE WILL CHANGE MOST 

MI Ni MUM- SUM- PE RCENT - CH ANGES-USED- 

WEIGHTING FACTORS NOT USED IN THIS OPTION 

writ • EQ* 0 - NO LIMIT -ON CHANGES . — 

WDI a £Q» 1 LIMIT CHANGES - SCALE OPTION 
WD2-8 MAX PCI CHANGE ALLOWED IN EACH MODE* 

CH ANGES ~AR 6-SCAL ED SO- MAX-CHAN GE-,L-E-.- MAX IMOM 

0 INDICATES NO LIMIT . 

. . . . WDI- • EG* 2- LIMIT CHANGES --TRUNCATE OPTION - 

WD2-8 SAME AS FOR SCALE OPTIONEXCEPT THAT ONLY 

CHANGES WHICH EX CEDE LIMITS ARE TRUNCATED, 

— OTHER CH ANGES -AR E NOT- - MODI FIE D- — — — - 
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C— 3 I NCOHP- MODEL- MASS C HANGES— — — 

C 

C WDloEQ, 1 WEIGHTING FACTORS ALL SET TO 1 ( TEMP ) 

~C — - WO I» E Q w 2 S TAS - W IT H INVAR I ANT PAR AM » — RE AOS ( A) 

C 

C THE FOLLOWING CONTROLS CAUSE THE CORRESPONDING 

-C — - — — PROP ERT I £S -T 0 REMAIN— I NV AR I ANT - If--*NE-<r~Q*,- 

C 

C COL 20 TOTAL MASS M 

~£ 30 — -R AD I A L-CG M*X : 

C 40 CHORDWISE CG M#E 

C 50 FLAPPING MOM OF INERT 

-C 60 — FEATHERING- MOM -OF- INERT M *KW**-2 

C 

c 


- - - - C 

C 

c 

—CO L— 2 102 — — —— 

0 ABOVE OPERATIONS DO NOT DISTURB ORIGINAL OATA 


c 

c 

r 

1 ABOVE OPERATIONS REPLACE ORIGINAL DATA IN PREPER ATION 

FOR SEQUENTIAL OPERATIONS 


' v — — ♦ ~ 

c 

C *5A» 

Q 

USED ONLY FOR INVAR ST AS o SEE 3, ABOVE, -WD1 =2 


c 

COLl - NO OF STATIONS (8 MAX) 


c 

WD1,WD2,..<. STATION NUMBERS, NO ZEROES 


C_, _ 

— ... — „. - • 

- 


c 

C NEXT HEADING CARD 

C $$$*$**#$**$ ft#*# $$$*$$£ 

0401- INTEGER- HE AD 119) , I ROW 446 ) ,ICGU46) — — --— - 

J002 INTEGER I JEQ<40,2) , 

0003 INTEGER NINC8) 

40-04— - - RE AL X421) »WMC20I , Ml. -2.1) ,WE(20)-,£ (21 ) ,^T{ 20),-T-Hf 2iI ? WK-L20 J-.-K-M 1-214* 

i 0MEGI16) »FREQ<16) .»V<i6f2D) ,W(16,20) , PU6, 20 I 
0005 REAL DUM48),V2U6.,20),W.2<16,20), P24 16, 20 i ,ME( 20 J »MET{ 201 ,MK(20»t 


— . — 1— A-4 60,7 1 , P il < 60 )■ ♦ B-4 6 0 ,-7 ) f 7~r87-» 0 4 7, 8 K W ORKi-7,&}-— — — — — 

0006 REAL' WOR46 0I »WO<7) 

0007 REAL G .MASS 41 6.) 3 GCHECKCl 6 ,1 6) 

-4408. — — — R E AL~£ Q 135,60) » MAI 8.0)-, W A 1 80) — — ------ — ~ — — — — — 

0009 REAL M2 1 20) ,E2 (2 0) »TH2< 20 } , KM2 ( 20 > ,ME2(20 ) , ME T2< 20) , 

1 M.K24 20) t SM(5) 

40 1-0- — — —R E A L— V SA V 1 16 ,2 0 ) , WS A V4 16 ,2 OH PSA V (16 ,2 0) — 

0011 REAL WV< 80) ,0M<801 , AWA43.5, 36 ) , AWA 1 1 35, 36 I, D4 A! 35, 36) 

0012 1 READ 1 000, IC1 »IC2 ,IC3 » IC4 , HEAD 

00-13 - 4 000- FOR MAT <41 1,1 9 A4) - --- - — - r — — 

0014 IF I I Cl *E 0. 9) CALL EXIT 

0015 PRINT 1001 ,IC1,IC2,IC3 ,IC4, HEAD 

444 6 100 1- F ORM A-T- UH 1 1 OX , 1 00 1 1H*-I t — ~ — — » — 

1 /20X »5 SHROTOR SYSTEM IDENTIFICATION PROGRAM ROTSI 

2 1/19/77 //10X,41 2 , 19A4// 10X » 100 CIH*)//) 
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0347 - 
ina 
3)19 
— 2 6 ~ 
0021 
0122 
- 3^23 
3 j 24 
0125 
- 6626 - 
012 ? 
0026 
- 4229 - 
10 30 
0)31 
- 6332 - 
0)33 
JJ 34 


1)36 

0 ) 3 ? 

- 0636 " 

0 ) 39 

1 ) 40 


0)41 


0)42 

0)43 

6646 - 

0)45 

0)46 

664 ?-- 

1048 

0049 

6650 - 

3 ) 5 1 


6)53 

0354 


-00 55 - 

33 56 
035 ? 

- 6030 — 
30 59 
00 60 

— si 061 — . — — — 

00 62 
3)63 


0664 
33 65 
0066 


IF* f €£«&Q*4! — G O- TO -2 5 
IF C ICI «E Q* 2} GO TO 29 
IFMC1-EQ* 8.AND.IC4,EQ.*0i GO TO 100 

IF4I C1-E Q»-QL-6 0 — TO— 9 — „ — ~ 

DO 5 1*1 *NX 
DO 5 J -1 *N H 

— - — -V4-J* 13 —VS A- V (- J 14 — - — — — — — - — — 

W-UtU^WSAVl Jtl) 

5 PUithP SA VI 3 $ I) 

PRINT— 4006- — — — 

1006 FORMAT i //10X f 3l H*** ORIGINAL MODES RESTORED *** //) 

GO TO 100 

-9-N X—O — — — ; — — — — — — — 

DO 10 1^1*21 

READ I 005 v X(l ) ,1 H,mil ,IE 9 EU1 fir *THUh IK*KMi I) 

— 1005— FOR M A T 4F1 0 *6 * 4 1 1 1*49*04) — - ~~ 

XFfMCX ) a EQ«Q) GO TO 20 
NX-NX-i* 1 

— — ~39M 4 16— AHAX Odsr I -M>~~ — — — — — — __ 

HE ( I ) — AHAXOI 1 ? I E } 

HT(M»AMAX0(1«IT) 

to- W K 4 1 4— A HA 40 U *-I 40- — — —— ~~— 

'■ CALL ERRU0»0> 

20 PRINT lOlOtil 9 XU) 9WMUI „MU ) 9 WEtI)*Et X)*WTf I)»WKI I|*KMO) 

— — t — I-l ^ ■— — 

1010 FORMAT I l'OX«'90Hl $TA W M H E 

1 W TH W KM /I XOX*0P 1 2f F12«3 * 

~2— ~4 XGPF&*G*XP Bl-2^3 )44™~~ ~ — r~.~~ — _ — — — — 

2 5 READ I015 9 C AL V* C ALW*C ALP?TH0 ■- 

1015 FORMAT I8FI0«G) 

~ - — — N2-=2^NX— ~ — — — — — _ 

N3-3&NX 

N4*=4*NX 

— -4 F4 C AL-V*-E-Q*0 J~C A LV-^l- — — — — — — — 

I FT CAL H» EQ«G3 CALW ^ 1 

IF CC ALP® E Q®0) CALP = 1 ' 

— ~ — PR I M T - 1 0 1 6 -9— TH 0— — — -- r -~ — — — — L_ 

1016 FORMAT C //10X *32 HROGT PITCH ANGLE ( ADDS TO TH* ~ 1PE12*3/ 1H1* 

1 1 .OX *254 INPUT MODES I CARD IMAGES! /» 

- — — ~~NM— 0 — ^ — ^ — — : . 

PRINT 101? sC A L V 9 C A L W 9 C AL P * T HO 

1017 FORMAT C /l OX ?8F1 2#3) 

— 29 l f 1 1C 1*>E ,Q*-2 ». - P R 1 NT - 1 01-0— — — 

1019 FORMAT UHi,10X*27HADDED MODES CARO IMAGES //I 

30 READ 1 015»FfO,.CVfCWf-CP 

— — -PRINT— lOi-7 « F-*JO» Cy^CVitCP— _ — _______ 

IFfF*EQ,0*ANO»0« EQ.OJ GO TO TO 
NMsNM4- 1 

FRE Q IN M) ^F — ^ — 

OMEG INM) "0 

READ 1 015* «V|NM# I ) -»!®i f NX;» 

HT~i oia^ < v a m * i — — , — — — — — ~~ — 

1018 FORMAT U0X 9 8F12*5J 

READ 1015* .(WINMtU «l^i«NX) 



—03 6? 

0068 

0069 

■" — -0 O'- / 0 — — — — t/v-~ 

0071 

— -0.0 7.2 — - 

0073 
03 74 

_00 75- 

0076 
00 77 

— 00 78 — — 

00 79 

oo ao 

•— -00 8 l 

0082 
00 83 

-—0084— 

OQ 85 
30 86 

- — 00 8 7 — — — - 
3388 . 

0089 


00 90 
00 91 

— -0-092— — 

00 93 
00 94 
— 00 95 
0.0 96 

00 97 

— h30-98— -• 

0099 

0100 
— 0101 

01 02 
0103 

—0104™ 

0105 

0106 

— 0107 — 

0108 

0109 

01 10- 

Dill 

3112 

— 01 U 

01 14 
3115 

01 16~- 

0117 
3118 


PRINT 1018*1 WfNM*!) *1=1 
READ 1015* IPCNM ? X) * l =X * N X I 
PRINT 1 0 1 8 * ( P ( N M • 1 1 * I * 1 * N X 3 
--40 -- I F I N tWG T . 1 6) C A L L E R R I 4 0 T 0 i— 

C APPLY CALIBRATION 

IF (C Y* EQ» G) CV-C.ALV 

— - IF4C!W» EQ.-Q)- CW*C ALW- — - — — — — — ~ — — 

lFiCP<,EQ«Q} CP -C ALP 
I =NH 

- ■ -IF -ICV EQ.» 1 • I GO TO 50— — ~ 

00 45 3=1* NX 
45 VU *3J=V(I ,J)*CV 

— - 50 IF (C W -*EQ,1* ) GO TO 6<F-™~ - — — 

DO 55 3=1 * NX 
55 WCI » 3)=W(I »J)*CW 

6 0 I F i C P — »EQ» 1 * 1 GO - TO 30 ~ — — — 

00 65 3=1 ? NX 
65 PCI f JJ*CP 

~ GO TO 30— ~ — 

70 DO 41 I =i * NX 
DO 41 0=1 * NM 

- — -V SA V W vU- V I 3 * I )— — — : 

wsavcj ,n=wu*n 

v 41 PSAVIJfXI=PCJ*I) 

C-~- - — - PR I- NT- M OO E$— 

PRINT 1020 

1020 FORMAT UH1//50X*31HINPUT MODE SHAPES CCAL APPLIED) ) 

— — — C A LL- P MODE S i X * V * U * P-, 0 MEG f f R EQy N M f NX T X 6 } 

90 AM =0 
A ME -0 

- — ■ A ME 1=0 - ----- ■— 

AMR =0 
SM I 21 = 0 

- SMC 31*0 — — — ~ 

SM C 4) = 0 
DO 95 1=1* NX 

— ME 1 1 ) = Mill *E 1 1 I — — — 

ME TCI) * ME (r)*(T.HU)+THOI 
MX (II = M.m*-KMU)**2 

A M - = A M*M( I h — 

SMI2M.SMC2 >+.M(I I 
SM(3)=SMf-3 .»*-.«£ f H 

— - - SM { 4 ) .« SM i 4 ) * M ( I ) * X M I *42- 

A ME = AME +A8SfMEMII 
AMET ■» AME T^ABS $ MET ( I ) ) 

95 A MX • = -AMK+MKTI ) — r— — 

SMI II =AM 
SMC5)*AMK 

- - A M— 4 = . .. A M/NX ™ - — — — * 

AME * AME /NX 
AMET = A MET/ NX 

^ — AMK ■= A M K / N X-—- - • ' — - — - — 

IF (AM *E Q* 0) CALL ERRI95 $ 0I 
IFIAMK.EQ*0) CALL ERR 1 96 »0 ) 



- — Oil* 

a 120 
0121 
— 0 }» 22 

0123 

0124 
— 4UX5- 

0126 


XI ZJ~ 
0128 
0129 


X ~4F i IC2.EQ. 0) -GO- T 01 00 - — ■ — . . 

PRINT 1031 . 

1031 FORMAT UHl / /3Q X ,25H 1 N PUT ORTHOGONAL IT Y CHECK // 3 

— — CA L L43RTH { V *-W * R* M * ME* HET -t HK t NM 6-, G-M AS S * QCHE CK^l^I C 2 1-^ — ~ 

IF 4 IC 2.EQ.2 ) PRI NT 1032 

1032 FORMAT C4QX ,42H##^ MODES REPLACED BY NORMALIZ ED MODES *** //} 

_ 1 F-t I C 2 o E-Q^-23 - C A LL--PM0D EG- t X*V*W EG^FR E G*-NM * N X * 4 6 1 — _ — — 

IFIIC2.EQ. 2. AND. I 01. NE.i 1 1C2=1 
C READ PROGRAM OPT IONS 

— 1 0 0- - R E A D-l-03-5^ 1 OWI-02 43 UM— — — - ~ — 

1035 FORMAT 4211 ,F 8. 0a 7F1 0*0 ) ' . \ : 

GO TO (110*200,500*1301,101 


C 

C 

-C-. 


FOR 101=1 


C 

c 

- G— 

C 

c 


~ WD 1 =UNI FOR ML Y-XIXTRI-BU T ED4^AMD0M ~E RRGR -H AV^IN G -A — ™ 

*/- MAXIMUM OF PCI ON A HP LIT JOE 

WD2 =8 1 AS ERROR Of PCT8 ON AMPLITUDE 

— -I l l S— USED— I N -GA LCULAT4 NG~ AN-4 NT-E^ER-R-ANOCH -NUMBER- 
USED IN SU8R0UTI NE RANDU 


0131 

0132 

01-33- 

0134 

0135 

— 2«6- 

0137 

0138 


0139 

G 1 40 
0141 
0142- 

0143 

0144 
— — 0 1 43- 

0146 


41-OX0l=DUMtU /1 00. 


WQ2=DUMI2) /1 00. 

I Z*DUMI3) 

IX=IZ*2*4~- — — • — ~ — 

CALL £ RR A ( V *WD1 *W02 ,NX,NM,lX, 16 } 

CALL ERR A I W * WD1 *WD2 * NX , NM, I X, 16 I 

-rr — 0A4 4--'E-RR A I — P » Wl~,rW D2 N X-, N M ,4 X - — r— — ™ — 

PRINT .205-0 t DUM4 1 ) fDUM (.2) flZ 
2050 FORMAT i // /30X*2 RANDOM ERROR OPT IOH *** 

. I.,. — _13 xaOHPCT E RRG R* , F7 © 3 * 5X , U H8 1 AS— ERROR*, F-7* 2r-5X,- — 

21 5HRAND0M NO SEED*, UQ/I 

IFUC2.N6. 0} C ALL OR TH ( V , W , P , M , ME , MET ,MK, NM, NX, 16, GMASS , OCHECK ? 16, 

l™ IC24— _™~ — — ■ — 

PRINT 1036 

1036 FORMAT I//40X, 43H*** MODES REPLACED BY MODES WITH ERRORS *** /} 

1 F MC2 .£ Q* 21 PRINT-403 2- . — — ■— — -w - 

IF 4 IC2.EQ. 21 I C2=l 

CALL PMODESC X,V ,W, P,CM£G,FR£Q,NM 9 NX * 16 I 

-_^_G0™Ta™4O€U — — — ~ = 

CALL ERR 1130*0) 


130 


014/ 
— 0148 — 


C 

X- 

c 

c 

X- 


CORRECT-- MO DES-ONLY - 




0149 

-0150- 

0151 

0152 


ORIGINAL MODES UNDISTURBED 

— — correct e o* mgdes~i N-4/-2, w. 2*-P2- — ■- — — 

; CHECK FREQUENCIES, MODES 

200 PRINT 1040 

4,040 FORMAT (1 Hi , 3QX , 1 BH MOO E - C H A NG E -OP T I ON--/ /-3D X, 2 6HP ER C EM T A G E CH AN G E S - 1- 
1V ? W*P) // 2QX, 16HM0DE 1 UNCHANGED } 

IF ID UM (1 } • EQ« 1 ) PRINT1043 

™IF4DUM (1T.EQ.2 ) PRI NTI 044 - 

1043 FORMAT 4 20 X,2 1 HL I MI T OPTION * SCALED 5 

1044 FORMAT I 20X* 24HL I MI T OPTION TRUNCATED I 


135 





—3 4 53 - 

0154 

0155 
4*56 

015 7 


oisa 

31 59 
-0 i 6 0-- 

3161 

0162 

0163 

0164 

0165 - 

0166 
0167 

-Oa 68 

0169 
■ 0173-. 
0171 
01 72 
-0173 

0174 

0175 


210 

C 

C - — 


IF- I NM.G ?• 83 GAL L E R R I 200,01 — — — ■ 

GM=0 ME G C IO 
00 210 I -2 *NM 

- 1 FI 0 HE G ( I), NE» m 0 - GALL— ERR 1 24 3- r 04— — 
CONTINUE 

CHANGED MODE IN V2,W2,P2 
— F ! RS?-MGD£~ U NCHANGED — 


DO 220 I =1 *NX 
V2MvI )«VU«I) 

— — — 4<24 1 ? I WWlH 1 3 — — — — — — ----- 

220 P2(l ? I)=PU f I) 

N=i 

-G - - ™- — ~ - — - — - — - — ■— - F O R M— A— M 1 ~7M — -CO LJ-MN— 

250 M1~N 
N=N*l 

— DO— 260 - X -1-,NX- — — — — 

All, Mi* M(l)*V2CMl« n-METCn*P2<MliI) 

ACNX+I ,MU = HU )*W2CM1*IH-MEC IJ*P2CM1*XJ 

A CN2+I — *M 1 ) •—— MET C 1 1 *V24 Ml- , I ) * ME II )*W 2 i H*P*2I M 1, H - 


-A— IS—CQM P R ES S E £3 


260 

C 


27 D 


280 


FORM 

DO 270 1=4 f NX 

PHI U )~.«~V-4NtH — 

PHItNX+IJ * WCN,l) 
PHHN2 + I) * p { N , I ) 

00 280 I = HN3 — 

DO 280 J = i,Hl 
BCItJJ = PHX«n*AU,JI 


COMPRESSED M TH MODE 


- C-- 


-S C-TR-A N 1 — *—B~ 


4M1X-M1F- 


01 76 
0177 
-41-78- 

0179 

0180 


290 
G- 


DO 290 
DO 290 
C II, J? 
DO 290 
CU,J) 


* 1 
-■ 1 
0 — 
* 1 


• Ml 
tMl 


0181 
0182 
-01 83 
0184 

-01 85- 
0186 
0187 
- 01 88 

0189 

0190 


300 

C 

--3 30 


*N3 

C Cl , J.)*BCL,n* 8 (-L« Jl 

— — ■ — - —I NYE RT- -C-U NT O 

IF I MU NE all GO TO 300 . 

Dllfl) - 1.0/C Cl ,1) 

G 0 -TO 31 0 - — — ~ — -- 

CALL XNYRS tC *M1 ,D , WORK ,1 ROW ,ICO.L , 7, 8) 

A I TRAN! * PHI 
I-, Ml— 


0191 
-Oi 92 - 

0193 

0194 
-01 95 - 

0196 
019 7 


DO-32 0-4 
WORTH *0 
DO 320 J 

-320--WQR-U 1 *=■ 

CALL MXV 
CALL MXV 


EMAX - 0 

- DO -330 I 

TORCH = 

330 EMAX - AMAXl l E MAX ,.ABS < WOR Cl ) H 

- .-PRINT- -1050 tN r€ MAX- ■ ~ 

1050 FORMAT f /20X*5HMQDE 12 1 10 H MAX CHANGE 

IF CO.UM Cl J a EQ.O.j GO T0331 


■* ltN3 

WOR 4 n + AX J , 1 1 & PH 14 34 — 8 — — — — — 

{ teO.*DfWQ-R,.Ml , PI ,7,D) 
i WOR , 8, WO, N3 f PI ,60,01 

— — W O R ^.~FR ACT I ON AL--C HANG E-4N-”E A€H~ EL EM ENT- 

PRINT PERCENT CHANGES 


1^N3*— — 

-wor ci ) noo. 


F8.ll 
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0199 

JZQO 

0202 
0203 
— 0204 — 

3205 

3206 
—0237 — 

3208 

3209 
-32 10- 

3211 

3212 
-021-3- 

0214 

3216 
-3216- 

3217 

3218 
-32 1-9— 

3223 
3221 
-3222 - 
3223 
32 2 4 
—9^2-5— 

3226 

3227 
-—^2 ^8 — 

3229 
3233 
—32 31— 

3232 

3233 
— 32 34— 

32 3 5 
3*: 3 6 
— 32-3-7- 
3238 

-32 39- 


32 43 
-32 41— 

3242 

3243 

— 4 ti 2 44' — 

3245 

3246 


1 p. ( 0 UM I N3 ,-NE . 0 4 --PRINT- 1 051 , DUM ( M3- 

1051 FORMAT {45X»13HMAX ALLOWED CHANGE 
PRINT 1055 ,IWOR(I3 ,1=1 ,NX3 

il-=-NX+4 — 

13 * N2+1 

PRINT 1 055 , 1 WOR (II ,1=11 , N2 ) ' 


F6 . 2 3 


1055 F ORMA-T-I / (2-GX,l GF10.-3 3-3— - 

PRINT 1055 ,4W.0R(l,i ,1*13 »N31 
333, TEMP = .01 

1 FT 0 UM-U4.EQ.0 )--60-T-0~335 

'IF ID UM ( N) . EQ<> 0® OR. E MAX . L E» DU MI N3 3 GO TO 335 
IF (DUM (l ) « EQ. 2. 3 GO TO 342 

TEMP— .01 *DUM{ N) /EMAX — — — — 

33 5 DO 340 I - 1 ,N3 

340 PHIII) = PHI II )*U* + TEMP*WORim 

— GO- TQ--349 ' , — : 

342 DO 345 I =1 ,N3 

- IFIWOR (I3.GT.0) W OR 1 1 ) = A M I Nl IWGR 1 1) , OJ MI N 1 1 

IF I WOR U -)* LT. 0 3 —WORT 14 -= A M A XI < W OR- ( 1 1, ~DUH ( N ll- 

PHI < 13 *U. + TEMP*WORUJ 3 

D0350 1= i ,NX 

-V 2 ( N ,4-1 — = — PH li 14 — — — — 

W2(N,I 1 = PHHNX + II 
P2IN.I 1 = PHI IN2*1) 

- 1 FT N . L-T.-NM } -GO -T-Q-250 — - 

PRINT 1060 

FORMAT (IH1 // 30X, 15 H CORRECTED MODES /) 
-CAW.— P MODES ( X , V2-,W2 ,P2-rOMEGrF-R& CVNMrNX ,-1 6 1— 
IF I IC2.6Q.0) GO TO 1 
PRINT 1061 


345 

349 


350 


355 

1060 

370 


-/Y4- 


• -1061-FORMAT- ( 1H 1//3 OX ,3 OH CO R R EOT E O- -ORT HOGON AL I T V-CHECK - 

CALL ORTH (V2 ,W2 ,P2 , M, ME ,MFT , MK, NM, NX, 16, GMASS, OCHEC<» 16,IC23 
IF ( IC2.EQ.2) CA LL PMOOES I X » 92 , W2 , P2, OMEG, FREQ, NM, NX, 161 

4 F— ( 1 0 2 . E Q . 0 ) — G 0 -TO -1 

DO 380 I =1 ,NX 
00 3 80 J=1 ,NM 

VI 4, 1 3 =V 2 1 J , 1 3 — 

wu,n =w 2 ( j,n 

P(J,I3=P2{J»I) 

- P R I N T -1065 — — - — 

106 5 FORMAT I //10X ,4714#** 
i //) 

-GO— T- 0—1 — — ■ — 


380 


ORIGINAL DATA REPLACED BY MODIFIED DATA *** 


C 

C 

- c 

c 


MASS ONLY SI 101 = -3 

ORIGINAL MASS PARAMETERS UNDISTURBED 

-COR REG T EO— VALUE S -I-N -M2- * E2-, T H 2,-K M2 

SET UP EQUATION PAIRS 


500 


NEQ - 0 
NS 1 = 0- — 


NM1 = NM-1 
DO 510 I * 1 ,NM1 

..I i.„= .l +l — 

DO 510 J = II ,NM 

IF I OMEG i J3.NE. O MEG ( 1 3 3 


GO TO 510 
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-'N£Q -NE Q+-1-- • 


02 54 
--3-2 55 
325t> 
3257 
-32 53- 
3259 
3263 
-0261- 


0262 

-3263 

3264 

0265 

-3266- 

3267 

0268 

-3269- 

0270 

0271 
-32-72- 

0273 

0274 
-02 75- 

0276 

0277 
-02-78-- 


0279 
02 80 

02-81- 

0282 

0283 

02-84- 

3285 

0236 

02 87- 

0288 

0289 

i 02-90- 

I. 0291 

! 0292 

3293- 

0294 

0295 
02-96- 

0297 
0293 


I JEQtMEQ.l ) = I 
1 JEQ (NEQ ,2 ) ■* J 

-510 COM! I N UE ■ 

IF ( NEQ «G T. 30) CALL ERR(5iQ,0) 

PRINT 2000,(1 JEQ(I,l) , I JEQ ( 1,2 J, !=i» NEQ) 

2 000— FORMAT—! iH-l -»30X-» 1-8H MASS -CHANGE OPTION — /-/ 3 0 X-, 2 5 HE Q U A 77 0 N~P A I R S -( M-3- 
1DE NOS) //UOX, 10(17, 14) ) I 
IF(OUM(l)»EQ,l.) PRINT 1999 

—199-9-FORMAT { 73 OX ,3 7HALL-WE IGHT ING- FACT QRS -S E7--TQ— l-(-T-EMP-) i 

1FINEQ.GT, N4) CALL ERR 1511,0) 

IFiDUMm.NE.2.3GO TO 520 

... .READ -1-997 »NSI » (NI N(-J) , J= 1-rNS-H — — — — 

1997 FORMAT (11,19,7110) ' 

PRINT 1998,<NIN( J),J*l,NSn 

— 1-99 8-F OR MAT— -< 30 X, 2 8 H NO-CH A NG E-S--AT- F OL LOW ING-STAS — /-30X~r-8(?.X-,-{-3))— : 

C • SET UP EQUATION COEFFICIENTS 

520 DO 550 I = 1 , ME Q V : ; . 

— JE QU ,1 ) — — - — — — — — — 

J J * I JE Qil ,2) 

DO 550 J = 1 ,NX 


E q U-,j v ( I-I-»J)-*V ( JO ,0 )->W(-M-,0-3*W WJ-,0 3 

EQ(ItNX*J) = Will ,J)*P(JJ,J)«-W(JJ,J)*P(II,J) 
£Q(I,N2+J) = -VUI »J)*P(JJ,J)-V(JJ,J)*PUI,J) 

— 550- EQ1 1 i N-3+-0) ( 30,0) — 

DO 551 1=1 ,NEQ 
551 WV(I)=0. 


1 -F-CO-UM ( 2 ) . E Q.-O) — GO— T 0-553 

PRINT 2001 , S Ml 1 ) 

2001 FORMAT ( 33X,36HT0TAL MASS INVARI ANT AT 

NEQ«NE 0+ 1 ----- 

WV(NEQ)-— SM(1) 

DO 552 1 =1 , NX 

EQ1-NEQ »I It-0 


F10..3 J 


£Q<NEQ,NX+n * 0.0 
EQl NEQ ,N2* I) = 0.0 

— 552 EQ( NEQ »N3+ 1 )~=~ 0,-0 - 

553 IF(OUM(3).EQ.O) GO TO 555 
T£MP=SM<2) /SMU) 

—PRINT— 20 02--, — TEMP — 


2002 


FORMAT ( 30 X,36HR AOI AL CG INVARIANT AT 
MEQ=NEG*1 

W V 1 N E Q I «- S N 2) — - 

DO 554 1=1 , MX 
EQ! NEQ ,1 J = X(I) 


F 10 »2 ) 


EQ { NE-Q , NX+'I ) -=—0,-0- — 

EQINEQ ,N2+I) = 0.0 

. 554 £Q(NEQ,N3*-I) * 0.0 - 

-- 555— IF- (DUM( 4) .E Q. 0) -GO TO -557— — — 

TEMP « SMC3J/SMUI 
PRINT 2003, TEMP 

-2003 -FORMAT— ( 30 X »-36HC-HCR0W I- S €—€£— 1 N V A R I ANT— AT-; 
NEQ«NEQ*1 
WV( NEQ ) *~SM(3) 


-F-1Q -®4 i- 
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02 99 

03 00 

0301 
— 3302 - 
0 3 03 
0304 

03 06 
03 0 7 
*43.309- 
0 3 09 
0310 
—0-34 i~ 

0312 
3313 

-4314" 

0313 
03 16 

—0317 

0318 

0319 
—3320- 

03 21 
03 22 
— 0 3 23 - 
0324 
03 25 
— 33 26- 

0327 

0328 
— 03 29- 

03 30 
03 31 
— 0332 
0333 


556 

557 

2004 


558 

539 


2005 


-560 

565 


200 6 


2010 

.... 570 
2020 


DO- 556 
EQI NEQ 
EQfNEQ 
-EQCN6Q 
EQI NE 0 
IF(DUM 
-PRINT 
FORMAT 
NEQ=NE 
-W-V4N6Q 
DO 558 
EQI NEQ 
-ED (NEQ 
EQI NEQ 
EQI NEQ 
-IF- 4 D U-M 
PRINT 
FORMAT 
-NE Q=NE 
WVINEQ 
DO 560 
-EQtNEQ 
EQI NEQ 
EQI NEQ 
-EQI NEQ 
N4l=M4 
IF ID UM 
-P R I N T ™ 
FORMAT 
I F I I C 3 
PRI NT 
FORMAT 
DO 570 
-PRINT 
FORMAT 


4=1 tNX-~ 

til * 0*0 

*Nx+n = i 

?N3*I) * OoO 
C 5 1* EQ® 0) GO TO 559 
200^--SM(4) 


,0 

,0- 


I30X*34HFLAP PI NG 
Q*1 

1 jbw-S MI-41 — , — . — . — 

I =1 9 nx 

iij = xcn '**2 

, N XHM-0 ,0 

tN2M) * 0*0 
*N3+I> * 0®Q 
161 Q w 01 -GO— TO-565- 
2005 t.S-M 15 1 


MOM CF INERT INVARIANT AT F12.2J 


f3Q X*36HF FATHERING MOM OF INERT INVARIANT AT F10*4J 


Q* 1-- 

) = -SMI5I 
I -1 tN'X 
1 1 ) — =—0*0 — — 
• NXMI *0.0 
vN2MJ =0.0 
tNB^'X I 0 


tl ) »EQ« 2. } N41=N4-N$I 
2006 ,NEQ*N41~ 


/) 


C 

-G- 


(/30Xtl7NTGTAL EQUATIONS = 15U8H, NO OF UNKNOWNS = 14/) 

«E Q* 0) GO TO 580 

(//30Xt35HEQUATICN COEFFICIENTS FOR MASS SI 
I-i »NEQ 

2020 * < EQII-t N44- — — — 

i/ilQXAPlOE 12. 3U 

— — — ~-~F OR M- - COM PR ES S E 0— M A- M AT-R-I-X— — — 


03 34 
-0-335- 

0336 

0337 
-033 B- 


03 39 
0 3 40 
-03 41 - 
03 42 
03 43 
-03 44- 

0345 

0346 


580 DO 590 I = 1 ,NX 
— _-MA 1 1 1 M I 

MAINXH) = ME 1 1 1 
MAIN2+I) = ME T II 3 
™590 ~MA-fN3*I 1 = ~MKC 


C 

C 

-C~ 


FORM INVERSE* COMPRESSED PERCENTAGE WEIGHTED WEIGHTING FUNCTION 


IF ID UM 111. EQ. 1 « ) GO TO 602 
DO 600 I = 1 f NX 

-WA 4 1 I =M( II-/WMIM — - — — — — 

WAINX+I.I *MEiI)/WEtn 

IF ( ME ( I ) .E Q. 0) W AtNX*I I * AME/-WE4 I * 

-WA CN2* n =ME TIU /WT (14— — —~ 

IF I MET II ).EQ,.Oi WA( -N2 + I ) *AMET/WT«n 

WA I N 3+ 1 ) =M K 1 1 ) / W K 4 1 1 



-3.34-?-— — - — IFTMKM ) »E-Q»t)K— WA4N3+I ) ~AMK/-WK 

0348 600 CONTINUE 


03 49 

03 50 - — 

0351 

0352 

-035 3 — 

03 54 
0355 

0353- — 

0357 
03 58 

• 03-59 — 

0360 

0361 

03-62- 

0363 

0364 

0-3.65 

03 66 


IF (NSI .£Q. 01 GO TO 609 

0 0—6 01 — 1 — 1-1 MSI- : 

J-NI Nil) 

IF{ J.LE.O. 0 R« J.GT« NX) CALL .ERRC 60 l,OI 

WAf JJ -=0 : : 

WA <NX+ J| =0 
WA I N 2 + J ) =0 

401 - WAT N 3 * JJ =0 

GQ TO 609 

602 00 605 I = 1 ,NX 

— — wa i i-i-Nin — — — __ — : -= 

WAINX+U =ME(n 

IFIME(I).EQ.Q) WA(NX*I 1 *AME 

WA{ N 2 -i- 1 1 =M E-T-H 4 

IF JMETin.EQ.O) WAIN 2 + I | = AMET 
WA I N 3 A- 1 } =MKCI ) 

— ,-I F { M K (-1-) £ Q s - 01 -W A I N 3 -H )=AMK — — — — — 

605 CONTINUE 




— 03 67 

0368 
03 69 

—03-70— — 
0371 

-03-7-2 

03 73 
0374 

-0375— 

03 76 
03 77 

-33-7 8 — — 
0379 
03 80 

-03 81 — i 

03 82 
0383 

-3384 

0385 
03 86 

-Q387- 

03 88 
03 89 

-0390- 

0391 

0392 

-0393- 


0394 
-03 9-5 

0396 

0397 


AWA = £Q*WA**(-2) *EQ(T i (NEQ*NEQ) 

609-0 0—6 1 0— I — 1-j N60 

DO 610 J = 1 ,NEQ 
AWA (I« J) - 0 


C 


— —DO— 61-0 - L — =-1tN 4 - 
610 AWAU t Jj 


2021 


- AWA(I ,J) *EQ< I ,L)*EQ( J »L)*WAIL i *WACL) 

NOTE DWA IS DUMMY ONLY t AW A IS FREE 

-I F (TC3»E-Qo0>-00— TO-61-2 — 

PRINT 2021 

FORMAT UHl // 30X»21HMATR1X TO 8E INSERTED //) 

DO -611- I-*l jNEQ d_ _ 


61.1 PRINT 2020, (AWA ( I *J! ,J=1 ,NEQ) 

612 CALL I NVR& ( A WA , NEQ , AW Al ,OWA , I ROW, ICOL , 35 , 36 ) 
I F( IQ 3.E Q, 01— GO -TO - 61 5 


PRINT 2022 

2022 FORMAT {// 30X,14H INVERSE //) 

—DO 614 -I =1-»NE Q r- 


614 PRINT 2020, (AWAIU,JKJ=1, NEQ) 

615 DO 618 I =1 ,NEQ 


— D 0 — 6 1 8 — U — 1- , N4 — — — „ . 

618 WV( I ) =EQ ( I , J } * MA I J ) * WV ( I } 

IF { IC3 *EQs 01 GO TO 619 

PR i NT -2023 : :: __ 

2023 FORMAT I //30X ,12HEQ*MA (TRAN) //) 

PRINT 2020 ,(WVU) ,1 = 1 , NEQ) 

-619 -DO -625--T— 1,NE Q 

omc n*o 

DO 625 J=l„NEQ 

-62 5 0 Mil- ) =DM(I-}»A WAI-l 1,3)3 W Vi J) — '.. 7 . : 

FORM WV = EQ{ T) $DM THEN OM = DELTA MASS 

DO 620 I = 1 ,N4 


WVI-I 1 — =— Q 

DO 620 J -- 1,NE0 
62 0 W V ( I ) = WV(I)+EQ13,IJ#0M(J) 




■ -4398— * 

0399 

— — ~a4GO~.— — -~ 
0^01 
j ^ 0 z 

* — - — 84 0-3-- — - — - — 

0404 

0405 

- — —3 4 0 6 —,-'. — ^ 
0407 
04 08 

0409 — ™ 

0410 

0411 

— — — ■ — 04 1' — — ' — — — - 
0413 
0 4 1 4 

0416 

— > — 041 - 7 — — 

0418 

0419 

04 20 - - ^ 

0421 

0422 

0424 

0425 

- — —04 2 6 - — 

0427 

0428 

0429 r — 


04 30 
-0431 


-04 32 — ~ 
0433 

-0434 — 

0 4 35 

^43^-—- 

0437 

0438 

-0439 — ~ — — 
04 40 
04 41 

-04 42 

04 43 
0444 


— — — 0 0 - 63 01 - - — . .- 

630 OMf U * -WVIX 

c FORM CORRECTED CHARACTERISTICS 

00 -640 I— i -» N X : 

M24IJ = MUHOMU) • 

ME2II J = MEUJ+DMINX+I ) 

— -E-2U i -=-ME 2 { U--/H 2 1 14- — 4' - / v_ ' 

MET2 { I } ~ ME T < 1 3 +0 M C M2 + 1 ) 

IF {ME 2 U 3.EQ.0) GO TO 635 

. TH24-n.-=-ME-T2U-)VM&2-U-).--T.H0. - 

GO TO 636 
635 TH2( 1 1 =TH{ I) 

63 6 MK2{ I 4--= - M K 1 14*0 M4 N3-* 14- - — . ' ■ ■ v ’ 

TEMP = MK2 II ) /M2 (IS 
IF ( TEMP.GE .0) GO TO 639 

— KM2 ( 1 1 .=--~ SQR T-I--4EM p 3 : 

GO TO 640 

639 KM2UJ = SORT { TEMP) 

640 -C ON-TIN UE — ... 

C COMPUTE PCI CHANGES IN AW A 

DO 650 I = I » NX 

— A WA 1 1 , 1 4-* - D M { I 3 AM Cl 4*1 00. 

AWACI ,4} = ( KM2 tI)-KM(I))/KM(I)*10Q. 
if (TH (13. EQ. 0) GO T0647 

4WA CTH2U4-TH M44 /THC I ) * 100-.—— 

GO TO 648 

647 AWACI ,3) =100. 

1 F { TH2 i I-4.-EQ.-0-) -AW A i 4, 3 >-0— 

648 IFCE(I).EQ.O) GO TO 649 

A WA 1 1 1 2) ~ C.E2U r-Etn } /EfI3*100. " . r 

GO- -TO -650 — : : " 

649 AWACI *23 = 100. 

IF(E2{ IJ.EQ. 0} AWACI, 2 3=0 

650 CON TIN UE- . ____ 

C PRINT CHANGED VALUES . 

PRINT 2030 

-2 03 0 -F OR MA-T- { 1H 1 // 1-3 OH— I —OR I G-M -NEW M P CT 

1 NEW E PCT ORIG TH -NEW fH PCT 

2NEW KM PCT //» 




— OR 1-6— E- 
OR IG KM 


- — — 00-655 - I-=l ,NX , — ; 

655 PRINT 2040, I ,M( I) »M2 ( I ) ,AWA( ! ,1), E( I) * E2{ II, AWAC 1,21, 

1 THU) ,TH2U ) , AWACI ,3) ,KM(U ,KM2(U,AWA( 1,4) 

— 2040-FORMA T-U3 ,4 U PE 13. 3 ,E12 .3 ,G PF7. U3 

C ORTH CHECK 

IF ( IC2.EQ.0) GO TO 1 

PRINT-1061- — , — 

CALL ORTH ( V , W , P » M2 » ME2 , MET2 , MK2 ,NM, NX , 16, GM ASS,OCHECK, 16, 1C 21 
IFCIC2.E Q.2I PRINT 1032 

i£l-IC2..eQ. 23 CALI — PMOOES— 4-X,V,W , P,OM-EG, F REQ, NM?-NX, 16 3 __ __ 

IFU02.EQ.0I GO TO i 
DO 660 1=1. , NX 

M-C 14 =M 2114 ■ 

Ecn=E2<n 
tHCI ) = TH 2 C 1 3 


141 



0445- — 

•J446 

3447 

—~ * KM< I I-KM2U} — 

ME ( U-HEZi U 
METU) =MET2iI) 

... A60--MK i 1 } ~MK? i l-i— 

""V If-}*? Xf*~ • ^ 

0449 

PRINT 1065 

0450 

GO TO 1 

0451 

— - - - • -END - 





0-3 31- SUBFU3U TINE— -PMOOE-S-4X, VVW ■» P-? ONE G.-FR EQ*-NM , NX+N 01443 ~ — 

00 02 REAL XU) tViNOiM.U »W<NOIM,l),PI NDIM, 1 > „ OMEGI 1 ) * FR EQ < 1 ) 

OjQJ IM0=1 

00 04 IMl— ~=~NI-JWM-NH-»3) : — 

0003 75 PRINT 1025 ,<OMEG U ) ,1= I MO ,IM1) 

0006 1025 FORMAT < //13X.8HCMEGA * , Fi 8. 3, 2F39 „3 ) 

OOQ l PR4 NT-1026+1ERE GUL»-1-*4 M0 , l Hl-i » 

Q JOB 1026 FORMAT?/ 13X»7HFREQ » , F18 , 3 ,2 F39*3I 

0009 PRINT 1027 

-00-10 1-02-7— FOR MAT- !-/2-X^-l-UH STA ,-3 * 39 H V W-- 

IP )/) 

0011 DO 80 I = 1 »NX 

00-1 2 8-0— PRINT 1 033-*-4-»X-( l J-»4-V-( J-, I 1-,-WT J »-I -WP4- ) , 

0013 1030 FORMAT I IX »I 2 »0P F1Q*3 ,3 ?3X, IP 3E12.33) 

0014 IF< I Ml.GE. NM) GO TO 90 

-00-1-5 1 MO— I M0+-3 : 

0 J 16 IMi- MINO? NM,I Ml+3) 

0017 IFCIMO«EQ.4*OR«l MO* EQ* 10* OR. IMO* EQ. 16) GOTO 75 

0018 PR I NT -1020- 1 

0019 1020 FORMAT (1H1 50X, 11HMC0E SHAPES //.) 

00 20 GO TO 75 

00 21- 90— RE-T-URN 

0022 END ' • 


-900 1 SU&ROU TI NE -ER R f N » I ) — — 

C 1=0. TERMINATES RUN I N£ 0 WARNING ONLY, PRINTS I 

0002 PRINT 10, N 

0003 10-F OR M A T {-/ /1-OX-rl- 7H ***_gR RGR- NU MB ER ,1-5 — 1 

0004 IF ( I • NE • ◦ ) GOTO 20 

0005 GALL EXIT 

00-06 2 0 -P R I N-T - -3 0,1 — — - 

0007 30 FORMAT (20X,2GH*** WARNING ONLY *** ,15//) 

0008 RETURN 

00 09 i NO 




- $ US R 0 U TINE C R IB I V t W * ,«£*M£Tf4W-*,NM*AIX 9 n®Wr m&$$9 GC-BECK .t&miHi-W h 

PERFORMS ORTHOGONOLITY CHECK 

™ G M-A S3 — ARE— D I AGONAL- ~E L E ME NT 3 

□CHECK i$ NORMALIZED BY DIVIDING ROW*COL BY SQRT 
OF DIAGONAL 

| ; . ; K ■ 

I P»NE. 0 GMA5S»OCHECK ARE PRINTED 

IP.EQ.2 . MODES ARE NORMALIZED I GEN MASS * 1.0) 


REAL V (MOI M»1 ) ,W ( MDI M, i ) , P 1 MD.I M» 1 1 » ME11) , MET 1 1 ) # MKU )* GMASS1 
I OCHECK(MCDIM ? U »MU) 

DO 2 0—1 — =— 4-, NM — __ — — 

DO 2 0 J * i,NM 
□CHECK (I ,J) ■= 0 

DO— 2 0— L-~~1-»NX — — — ________ __ 

20 OCHECKUtJ) * OCHECK4I , J ) *V II , U *M1 U*V1 J*U.-P.< t»L )*METIU*\ 
1 4- W C I ,LJ*M<U *W1 J»L)4PI I ,U *ME1 U *W4J# D-V( I,L > *METIL ].»PiJ , 

— 2 — _-*Wt t^L)-*ME IL) *PC J»-LT I t-Ll*MKLL-T-*P ( J+L-)— — — — • 

DO 30 1=1, NM 

GMASS1 I) = OCHEC K (I ,1) 

SQ • • =- S OR T-i-G MASS-1 4 U - : 

IF1IP.NE.2) GO TO 29 
DO 25 L=1,NX 

— V II , U -V II , U /SQ _____ ______ 

W(I ,L) =W (I ,L> /SQ 
25 P 1 1 , L) =P (I »L> /SQ 

— 2-9— D 0--30-J— -4 , NM — 

OCHECK1I » J ) = OCHECKI I , J 5 / SQ 
30 OCHEC K { J »I ) = OCHECK1 J ,1 )/SQ 

IF(IP.EQ.O) return — 

PRINT 100, 4GMASSM) ,I=i,NM) 

100 FORMAT 1 2t)X,40HDlAGQNAL ELEMENTS OF ORTHO CHECK MATRIX / 

1___ _ 4_1 0 X ,-1-P 8E1-4.-3 ) ) 

PRINT 200 

200 FORMAT 1 //2QX »30HNORMALI ZED ORTHO CHECK MATRIX /} 

-_- D 0 40-- 1 — =_1 , NM _________ 

40 PRINT 300, COCHECKU , JJ , J=l,NM) 

300 FORMAT 1/2X,16F8,3) 

1 F ( I P_EQ.2 1— PR I N T -3-5 0 — 

350 FORMAT 11H1,30X,16H NORMALIZED MODES //) ' 

RETURN 

E ND 


ORTHO CHECK MATRIX 







03 31 

0332 
-.2033 - 

3334 

333 5 

f — 1 ^ 33 ^”""’ 

33 37 
00 38 

3340 
0341 
—£ 042 — 
33 43 
33 44 
^ 3343 — 

0346 

0347 
^D 48 — 

3349 
33 50 


-SUSROUTt NE ~ X M V RS- - C 8 -9 N» A »•■ 0 * — I R GW r 1C 01 f NRW r NCL- 1- •— — 

A * INVERSE OF 8 8 UNDISTURBED 

VARIABLE DIMENSIONS NCL MUST BE AT LEAST ONE GREATER THAN 

—NR H-H UST- -B 8 -AT— LE A S T- -6 DU A L - T G— N — — 

I ROW* IC CL ARE VECTORS OF LENGTH NCL 
REAL A<NRW,.NCU f 8 INRW# NCL) , 0 1 NRW ? NCL I 

— — I N TE G E A~ TRQVHNCU r I € Q M NC L ) — — — — - 

DO 1 I *1 tN 
DO I J~1,N 

— X-~Af If 31 — — — 

M-N+T 

DO ? I = 1 , N 

■— I ROW ( I ) — — — - — 

7 icoun=i 

DO 20 K=1,N A 

A HA X = A< K , K5 — r — — 

-... do io i=k,n . v :: 

00 io j=k,n 

~~~ IF ( A 8 S4-Ai I rJH-A8SI-AMAX> )I0-,9 f 9 

9 AMAX= AU,j) 

IC = I 

— — — JC — J — •- — — — ■ — — — — — — — “ — • — ? — — — — — -*■ — — *v._ • . — — 

10 CONTINUE 

Kl=ICGUK) : '0/- 

— — I COL IK) = I C OL-f! C 
IC0U.IC)*K1 
KI = 1 RO W ( K) ’ « 

— I-R 0 W { K J = l R 0 W { JC )—— — — ~ — 

1 ROW! JC) -KI 

IF! A MAX} 11 ,12 5 1 1 •• F -' - : ? ^ 4-:^ 

--I-2-PRINT--X3 — — — — 

13 FORMAT i * SOLUTION OF MATRIX NOT POSSIBLE 3 ) 

GO TO XOO 

- l-X-r D 0 — 14 -J~l 7 N~~ — • — — — — — ; — ■ — — -• — — — — — — — r- — r — — —— 

E =A { K ? J ) 

A lK f J) -ARC, J) ' . 

-14- A (IC ,J) =E ~ ^ — — — — - 

DO 15 1=1, N 
E =A { I , K } 

.. .A i U K )• =A i l *30 * — — — . — 

15 AM, JC )=E 
DO 16 1=1, N 

- 1 F t I ~K L- -18 a irl 8™ — — • — — — — — — 

17 A(I ? H}=1. 

GO TO 16 

-4-8-- A- M .* M ) = 0 — — 

16 CONTINUE ■ 

pvt=a<k,k) ■■■■■■■■■■ • - .■■''■j 

D 0 8 -J— 1-,M- — — — — 

8 A { K » J) =A { K , J) /P VT 
DO 19 I =1 , N 

—-IF- (1-K42 U 19 , 21 — — — — — — — 

21 AMULT=A < I , K) 

DO 22 J=1,M 


MATRIX 


POSS IBLE 3 ) 


145 




-0051- 
00 52 
00 53 


-00-54 — 

0055 

0056 
~0354U~ 


00 58 
00 59 


-0^60- 


00 61 
00 62 
-0063- 
00 64 
0065 
—00-6 6- 
006 7 
00 68 


-22 


19 


- 20 — 


A-UfJMA 41 rO)-AMUlT^4C J 

CONTINUE 

00 20 1=1 ? N 

A i 1 * K-«J-»A4 M)— - — — 
DO 25 1*1, N 
DO 24 1 = 1, N 


24 

23 


■25- 


-XP-I I RG W 4 W^U 24 *23-*24- 
CONTINUE 
DO 25 0=1* N 
-0-4 1 *0 )-*A - 44 -^*-^— — — 
DO 26 J=1 , N 


28 

29 

-26 


100 


DO 28 L=l, N 
-IF 4 ICO U4- JO-^L > 
CONTINUE 
DO 26 1*1, N 
-A4ItU-=Dll-rJ)“ 
RETURN 
END 


2 8 *2-9~*2~8~ - 







c 

c 


WO-1 - 


-SU8R0UTI NE M XV ( A *B f C ?.N , NDI IC ON? I 


3302 

0303 — 

0004 

0005 
■0006—- 
0007 . 
uj 0 3 


MATRIX TIMES VECTOR AIM}* B< M» NJ *C( Nl 

— +-A1-M4- 

DIMENSION A ( i > ,81N0IM,li >C(ll 
DO- 1 0-1=1, M - — 

IF ( ICO NT »£ Q. 0) ACI )=0 
DO 10 J=1 » N 

4-0- A( I 4=A < I ) vB< W J^CWI 

RETURN V 

END 


FOR ICONT * 0 
FOR— I-CONT— 



4401- 


0002 

0003 

4404- 

0005 

0006 

440- 7- 
0008 
0009 

441- 0- 
00 U 
0012 





S U8 R 0 U-TI-NE - E R R A 1- A * PC-T^-R CT- B * N J » N-M , I X- » N 0 1 M-4 — 

C A BIAS ERROR PCTBIRATIC) ON AMPLITUDE AND A UNIFORMLY DISTRIBUTED 

C RANDOM ERROR HAVING A */- MAXIMUM OF PCTCRATIQ) ON AMPLITUDE 

C ' 

DIMENSION AINDIM,!) 

IFIPCT.NE. 0 ) GO TO 110 

1 00--I Et -PC-TB.E C.-0-4— GO-T-G- 1-30— — — — — — 

110 00 120 K=1 ,NM 
DO 120 I =1 ,NJ 

CALL-RAND U L- LX,I-Y-*YF L-4 

ix-iy ■ 

E=l.*2<>*PC7*<YFL-.5)-i-PeTB 

120-A (K t-D =A (K jI4-*E — — : 

130 RETURN 
END 





.A 


-- SUBROUTI NE -« AND U I-IX»IY,YFL ) 
USAGE 

CALL RANDU ( IX,IY,YFL ) 


COMPUTES UNIFORMLY DISTRIBUTED RANDOM REAL NUMBERS BETWEEN 
-0- AND -U 0 - AND RA NDOM REAL- I NTEGE RS-BET W E EN- 0 -AND- 2**31-. 


-EACH- E NTRY-U.SE S- AS- -I N PUT— AN -INTE GER-RANDOM -NUMBER— AN D 
PROOUCES A NEW INTEGER AND REAL RANDOM NUMBER- 


—VAR I AB LE-S — — — 

I X- FOR THE FIRST ENTRY THIS MUST CONTAIN ANY OOD INTEGER NUMBER 
WITH NINE OR LESS DIGITS. AFTER THE FIRST ENTRY IX SHOULO BE 
-THE- PREVIOUS- VALUE- OF— I Y -COMPUTE D- BY- T-HIS SU 8R0UT INE - 

I Y= A RESULTANT INTEGER RANDOM NUMBER REQUIRED FOR THE NEXT ENTRY 
■— TO-THI S-SUBROUTI NE. THE -RANGE- OF-THIS-NUM BER-IS-BETWEEN-O-AMD-2** 31- 

YFL= THE RESULTANT UNIFORMLY DISTRIBUTED , FLOATING POINT, RANDOM 
—NUMBER -I N-7HE-RA NGE-O-T-O-l-.O — — — — 


I Y-I-X* 65 53 9 - 

IF< I Y) 100,110,110 
100 I Y=I Y* 2147483647+1 

-11 D- YFL— I Y — — 

YFL = YFL*.4656613E-9 
RE TURN 

END — — 


APPENDIX D 


NORMAL MODES AND NATURAL FREQUENCIES OBTAINED FROM VACUUM WHIRL DATA* 

INTRODUCTION 

The rotor was forced vertically along the axis of rotation with no other 
external forces. The natural frequencies of the symetric flapping modes 
with infinite hub impedance are the driving point antiresonant frequencies 
along the rotational axis. These frequencies were identified and a modal 
analysis done to determine the mode shapes using strain/hub acceleration 
transmissibility in the following manner. 

Strain readings, calibrated in terms of bending moments, and hub vertical 
accelerations were recorded simultaneously on analog tape at the selected 
rotational speeds of 0, 5.24, 10.47 and 15.71 rod/sec. (0, 50, 100 and 150 
RPM). The time domain hub acceleration signal was fed from the tape reader 
to the force input of a Fast Fourier Transform Digital Signal Analyzer, type 

j_ u 

Hewlett Packard 5420, while the time domain strain signal from the j in sta- 
tion along the blade was fed to the response input of the Digital Signal 
Analyzer for stations j = 1 to j = 12 at each of the rotor RPM settings. 

Over a narrow band of frequency covering each hub anti resonant frequency, 
determined approximately from broad band analysis in which the hub driving 
point antiresonant frequencies appear in the Fourier Transform in the form 

O 

of natural frequencies, a Fourier Transform of 2 frequency line was 
obtained for each strain/hub acceleration transfer function. The narrow 
band data were then analyzed for global properties. 

The transmissibility residues for the 12 blade stations in a given mode 
were found to be complex, due to the nature of the transfer function, but 
complex normalization showed the bending moment modes to be real (classi- 
cal). The deflection modes were obtained from the bending moment modes 
by simple double trapezoidal integration of the curvature from the root 
to the tip. 


*The tests from which this data were obtained are described in Ref. 9 
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The Anti resonant Method . - It is obviously impossible to achieve infinite 
terminating impedance in practice but the modal effects of infinite term- 
inating impedance along a single motion coordinate can be obtained quite 
accurately through anti resonance theory even though the terminating coor- 
dinate never reaches absolutely zero motion. It never reaches absolute 
zero because, and only because, in this case, the rotor dissipates energy 
to a sink. The nature of this energy dissipation, called "damping", is 
not known. If the rotor were undamped the vertical motion along the axis 
of rotation, the coordinate of sole external excitation, would be absolute 
ly zero at the natural frequencies of the symmetric flapping modes of 
infinite hub impedance regardless of the actual hub impedance. The sum of 
the inertial forces of the undamped rotor acting vertically on the hub 
would, at these frequencies, be exactly equal to the sole excitation force 
acting vertically at the hub, regardless of its magnitude (within the 
linear range) or phasing to any base, in the steady state. This is the 
principle of the undamped vibration absorber of 1909; its notable early 
19th century predecessor, the una corda or "soft" pedal on aftersound of 
the concert grand piano; the Thearle invention of the 1930 on which shaft 
and turbine balancing machines are based; the 1947 method of stabilization 
by Thor which made spin dry home washing machines practical and the many 
obvious helicopter applications along with the less obvious one recently 
in which a military helicopter initially had little pilot seat vibration 
at the expense of intolerable tail fatigue. 

Mathematically, a damped antiresonance is merely a zero of zero magnitude. 
In the case at hand the single excitation along the axis of rotation is 
unknown (because the measured applied force in the rig is below the hub 
with an intervening unknown impedance) but as it is the same for hub verti 
cal acceleration and blade bending moment the quotient of blade bending 
mobility and hub acceleration mobility involves cancellation of the pole 
roots leaving the denominator a polynomial whose roots are hub driving 
point zeros the undamped parts of which are the desired antiresonances. 
These can be determined from the Fourier Transform of the transfer func- 
tion as will be shown below. 
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From elementary considerations of complex variable theory it is easily seen 
that the residues are without physical significance in themselves because 
the polynomial quotient has an arbitrary factor. For this reason one can- 
not use this procedure to obtain physically meaningful orthonormal modes. 
However, in normalizing on a station on the blade the arbitrary factor of 
the multiplying factor cancels, being the same for each station, and a 
valid bending-moment mode shape can be readily obtained. That is, the 
validity of the quotient of residues is maintained. This is precisely the 
same as ratioing the vectorial chords of the Nyquist plots of each blade 
station between given frequencies in the zero root range of the hub mobility 
to that of any given blade station. 

Because the complex chordal vectors between given frequencies are parallel 
to the modal diameter of any transmissibility having the hub driving point 
product of roots of the zeros in the denominator and because the length of 
such chords are necessarily proportional to their associated diameters each 
it follows that the ratio of the complex chordal vectors is the same as that 
of the complex diametral vectors. In other words, if one were to transfer 
the Nyquist axes to an origin corresponding to the anti resonant frequency, 
do a bilinear transformation and ratio the distances of the resulting lines 
to the origin for any station to a given blade station one would find a 
canonical invariance of the polynomial in the poles and the frequency invari- 
ant factor for any given pole. 
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Finding the Natural Frequency . - Most often one will find three peaks in 
mobility associated with a mode, two in the real and one in the imaginary 
or vice versa. If the angle of a complex mode is near 45°, 135°, 225° or 
315° there will be only two sharp peaks, one in the real and one in the 
imaginary. 

The following is done for acceleration mobility, q refers to a frequency 
in the imaginary and p to a frequency in the real. The subscript x refers 
to an acceleration mobility maximum and m to an acceleration mobility 
minimum. 

If the modal angle is in the range from about -40° to about +40° or narrower 
there will be a maximum in the acceleration imaginary and a minimum and maxi- 
mum in the real. 

p2 .j. p2 

2 q^ - x 2 - m ' ' ~ ft 2 [1 + g(2 tan <j>/2 - tan 4>) H (D-l ) 

Let the natural frequency be approximated by 

p2 + p2 

£ o „2 x m /n 0 \ 

0 5. 2 q x - 2 (0-2) 



TABLE D- I . 

ERROR IN fi 2 BY 

EQUATION ( D-2 ) 


<j> 

g = .02 

g = .05 

g = .10 

g = .20 

o 

O 

0.22% 

0.56% 

1.11% 

2.22% 

30° 

0.08% 

0.21% 

0.41% 

0.83% 

20° 

0. 02% 

0.06% 

0.11% 

0.23% 

10° 

0.003% 

0.006% 

0. 01% 

0.03% 

0° 

0% 

0% 

0% 

0% 

-10° 

0.003% 

0.006% 

0.01% 

0.03% 

-20° 

0.02% 

0. 06% 

0.11% 

0.23% 

o 

o 

CO 

1 

0.08% 

0.21% 

0.41% 

0.83% 

1 

o 

Q 

0.22% 

0.56% 

1.11% 

2.22% 
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If the modal angle is in the range from 50° to 130° one will observe a p , 

m 

q and q with the identical errors over the range as given in Table D-I 

X Hi 

by adding 90° to the angle. Similarly for the other cases. 

(D-3) 

140° to 220° (D-4) 


230° to 310° (D-5) 

Equation D-2, D-3, D-4 and D-5 involve frequencies merely as twice the 
square of the single peak frequency less half the sum of the squares of 
the double peak frequencies. 


q v 

45° x 315° 



Figure D-l. A diagram of acceleration mobility peak frequencies. 
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Two Peaks Only - Natural Frequency . - If there is only one real and one 
imaginary peak associated with a mode, the modal angle must be near 45° + 
n*90° for n = 0, 1, 2, 3 as seen in Figure D-l . 

For n = 0 

q x + P m " t 2 + 9 (tan <j>/2 - cot )] (D-6) 

Let the natural frequency be approximated by 
9 n 2 , D 2 

Sr = (D-7) 


TABLE D-II. INHERENT ERROR IN EQUATION 7 


<f> 

g = .02 

g = .05 

o 

II 

cn 

g = .20 

nx90° + 35° 

0.206% 

0.516% 

1 . 04% 

2.096% 

nx90° + 40° 

0.102% 

0,257% 

0.514% 

1 . 034% 

nx90° + 45° 

0% 

0% 

0% 

0% 

nx90° + 50° 

0.102% 

0.257%. 

0.514% 

1.034% 

nx90° + 55° 

0.206% 

0.516° 

1.04% 

20.096% 


The actual inherent error in natural frequency is about half those in 
Table D-II. 

Local Spectrum Analysis of a Complex Mode Given the Natural Frequency 

This procedure may be used over any portion of the modal arc. In an 
acceleration mobility Kennedy-Pancu plot let N be the natural frequency 
and f-j be any frequency on the modal arc selected by the operator. The 
chord from frequency f-j at N/ 1 - b to frequency f 2 = N/T+T over an arc 
of 180° or less is perpendicular to a diameter through the natural fre- 
quency, b is an arbitrary number less than unity. See Figure D-2. 
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Real Acceleration 


Figure D-2. Nyquist Plot 


The modal angle is <f>. 


c/2 _ 
D-h 


tan 2 


For practical purposes (see the mensuration section of any standard 
engineering handbook) 


c/2 _ 2h _ 
D-h c 


tan 


a 

2 


and 


c = D sin a. 




h =. 


l ' 2 Y 1 j 

/2j 

' 

, Y A = Y 2 + Y 1 J /2 (D-12) 

yR yR 

i N ' y A , 

2 

+ 

fY 1 - Y 1 1 

[ y n y a ; 

2 

(D-13) 

wR yR 

[ y n y i j 

2 

+ 

I T 

Y ■ _ v L 

I y n > Y 1 , 

2 

(D-14) 

f y R Y R ' 
IN " y 2 , 

2 

i 

+ 

( r ^ 

y I y I 

l Y N ■ Y 2 , 

2 (D-15) 


If ~ T*0 then N is not the natural frequency for points 1 and 2 

on the modal arc. If e 2 /e-| <1.0 then the natural frequency is less than 
N, if e^/e-j > 1.0 then the natural frequency is greater than N. 


z a 

= 1 + g tan y 

IT <■ 


— -i = 1 - g tan % 
N 2 2 


(D-16) 


f 2 - f 2 
t 2 t 1 


a 


N 


r L =2g tan | 


g = 7 


f 2 - f 2 
_2 T 1 

N 2 tan a/2 


CD-17) 
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The natural frequencies determined from HP 5420 data using Equations D-2 
through D-5 are shown in Table D-III in comparison to the* natural frequen- 
cies found by NASA. The strain data for 100 RPM was quite noisy and was 
therefore not analyzed. Figures D-3 through D-ll show the bending moment 
normal modes and Figures 0-1 2 through D-20 show the normalized deflection 
mode shapes. 



TABLE D-III. 1 

NATURAL FREQUENCIES Hz 
(cassette number, record number) 


0 rad/s 

5 . 24 rad/ s 

15.71 rad/s 


(0 RPM) 

(50 RPM) 

(150 RPM) 


8.2 NASA 

8.7 NASA 

10.8 NASA 

2nd Flapping 

8.16 (1,1) 

8.46 (1,37) 

10.78 (2,23) 


8.18 (2,41) 

8.47 (3,19) 

10.80 (3,47) 


21.8 NASA 

22.2 NASA 

24.4 NASA 

3rd Flapping 

21.71 (1,10) 

21.93 (2,1) 

24.24 (2,23) ' 


21.82 (3,1) 

21.97 (3,26) 



21.81 (2,48) 

21.93 (1,46) 



41.2 NASA 

42.0 NASA 

44.1 NASA 

4th Flapping 

41.66 (1,19) 

41.92 (2,5) 

44.18 (5,41) 


41.73 (3,5) 

41.99 (3,33) 

44.19 (5,44) 




44.20 (5,47) 


26.6 NASA 

27.4 NASA 

28.3 NASA 

1st Torsion 

26.41 (1,28) 

27.02 (2,14) 

28.36 (12,19) 



27.02 (3,40) 

28.36 (12,20) 
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RECOMMENDATIONS 


If this test were to be repeated it would be useful to measure strain on 
the hub near the center of rotation to provide the initial condition for 
integration of strains and it would be practical to calibrate in terms of 
the differential strains of the bending bridges, instead of bending moment, 
to eliminate the need for theoretical El values in the integration. 


In the photographic method of obtaining mode shapes the assumption is that 

the modes are uncoupled, that is, that the shaking excites only one mode.. 

With that assumption, a promising method of obtaining rotating mode shapes 

2 

is that pioneered by Hassal of the Royal Aircraft Establishment: 







where is the vector of blade strains measured in rotation 

$ is the matrix of nonrotating normalized normal translational modes 

is the matrix of nonrotating normalized normal strain modes 

Normalization of the Left Hand Side at a natural frequency, given very 

light damping and widely separated natural frequencies, would be the 

( 

rotating normal mode. $ and t v ' are obtained in a nonrotating shake test 
after which the accelerometers are removed from the blade and have the 

same number of columns but not necessarily the same number of rows. The 

strains used need not be directly related to bending moments. 


CONCLUSIONS 

The rotating and nonrotating modes in flatwise bending for the cantilever 
condition were found to be real. The natural frequencies found in bending 
moment modal analysis agreed closely with those found by other methods. 
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3rd FLAPWISE BENDING MOMENT MODE 


O- 

cc 
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4th FLAPWISE BENDING MOMENT MODE 
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3rd FLAPWISE BENDING MOMENT MODE 
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4th FLAPWISE BENDING MOMENT MODE 
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* 2nd FLAPWISE BENDING MOMENT MODE 
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3rd FIAPWISE BENDING MOMENT MODE 
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4th FLAPWISE BENDING MOMENT MODE 
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3rd FLATWISE MODE SHAPE 
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